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1. INTRODUCTION 

ADUENTURES are unusual human experiences characterized by 
extreme situations and dangers, indelibly impressed on the 
adventurer ' s memory . 

They Bxert a great influence on the human mind and since 
time immemorial have Fascinated even people not involved in 
the events. Poetry has made use of this fact, and in recent 
times various games of a literary nature have been developed 

First there were troubadors who told the people and crowned 
heads oF the deeds oF long dead heroes. Then in the 12th 
century the minstrels' poems developed into great epics such 
as "Lancelot". 

"Don Quixote" inspired thousands with his experiences, 
Following which travelers' tales CDeFoe, Fenimore, Cooper 
etc.] madB use oF the subject oF adventure, a development 
that stopped with the introduction oF detective stories and 
sci-Fi novels. 
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1.1 ADUENTURES TODAY 

Who is not familiar with the advqnture stories of their 
childhood or not been carried away by the experieces of Lord 
of the Rinos or Robinson Crusoe? Who has not identified 
himself with the principal characters and imagined how he 
himself would have behaved in the same situation? 

Most computer users, certainly in their early stages of 
computing, play space invader type programs. After a while 
though, when you realize that the playing sequence is 
always the same and that no thinking is required - just a 
quick wrist - boredom sets in. 

However a recent survey reveals that the American computer 
users who enjoy arcade-type games have developed a strong 
following in ADUENTURE games. Lively adventures, along with 
chess or Othello, represent the most intelligent application 
of your computer for entertainment purposes. Now, in 
adventures, the field of play is not limited to you against 
a shower of aliens - but a wholB world of situations and 
possibilities needing your understanding and logical 
thinking. Nimble fingers are not enough! 

When an adventure program has been loaded into the computer, 
our computer contains an independent world, a world 
consisting of three-dimensional spaces, objects, and, last 
but not least, a large number of fellow players. 

These fellow players must be able to communicate with us and 
must be able to hold a proper dialogue with us. 
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For example the principal character in an adventure is the 
figure with which we are to become ourselves. This principal 
character we best imagine to be a kind of robot that uie 
control with words of our language. Ule instruct him to go in 
a certain direction. He then tells us what he sees at his 
nBw location. Ue instruct him to examine these things more 
closely, possibly order him to take them, and some time or 
other instruct him to use the objects in a certain way . 

These programs allow us, without any great risk and at no 
grBat cost, to experience interesting adventure that may 
occur in the real world, but we can also enter a fantastic 
world full of ghosts and marvelous things; it is only the 
programmers' imagination that sets the limits. 

A good adventure will causs us to act as in real life and 
will even let us explore space from the comfort of our 
favorite armchair. 

Is it not far more interesting if, through the keyboard, I 
give an imaginary person the command "Open door" and the 
screen gives me the answer "I do not have the appropriate 
key" or "O.K. - the door is open" than if I continually 
press the firing button of my Joystick to keep a counter and 
a tone generator running? 

With the following examples I should like to show you how 
interesting it can really become: 

Haw do we catch a fish in order not to starve when 
we have only our bare hands? 
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How can we keep the hungry bear From looking on 
us as a snack between meals? 

How am I ta cross the raging river inhabited by 
primeval predators? 

With a little thought all these problems can be solved; we 
have only ta have the right ideas and a lot oF imagination. 

Your task is to gBt into a certain house whose 
entrance is barred by an iron gate. By looking 
closely you see □ key lying a Few inches behind the 
gate, but unFortunately your arms are too short to 
let you reach the key through the gate. 

How do you purpose getting into the house? 

It is not possible to climb over the gate, but a 
Few steps From the housB you had noticed a number 
oF trees. Some time or other during the game you 
also Found a piece oF chewing gum. 

Ue spent some time solving this problem, mainly 
because no one had clearly pointed out objects that 
could have been used: 

All we needed to do was ta go to the tree and break 
oFF a branch. THen we returned to the entrance to 
house, chswsd gum, FixBd it to ons end oF the 
branch, pushsd this and through the gate, and 
touched the key, whereupon this stuck to the 
chBwing gum; by careFully pulling the branch back 
we Finally got ths ksy . find it Fits the gate! 
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A neat solution, not so simple, but planned exactly in this 
may by the programmer during the development work. I should 
however add that the instructions BnclcsBd with the game 
assume that the player has some experience in it. 

Perhaps the above example has already put you in the mood 
For adventure. However, should ycu havB not noticed the 
power of the written word to fascinate, imagine what it 
could be like if some really good detective novels were 
enacted on your computer . 

Perhaps it will prove necessary one day to amplify the 
definition of the term "adventure" in our dictionaries as 
follows: 

In the 20th century advanced computer technology 
made it possible for the adventure story also to 
play a part. Scott Adam's "Adventure Land" is 
regarded as a milestone! there fallowed many other 
adventures, developed to such a dBgrse as to 
achieve "perfect world" simulations. Many well- 
known authors of books Cfor example Michael 
CrightonJ promptly recognized the new possibilities 
and in their works created a balance Far many 
people in relation to the everyday world. 



5 



ABACUS Software 



ADUENTURE BAMEUIR ITER'S HANDBOOK 



1.2 THE HISTORY AND DEUELOPMENT OF ADVENTURES 

Since a program-control led computer brain was developed from 
the First computer, all kinds of efforts uisre made in 
programming circles to make computers simulate human 
thinking and human behavior. In 1966 Joseph Ueizenbaum of 
the Massachusetts Institute of Technology developed his 
ELIZA program that finally succeed in interesting not only 
the experts, but also the public. 

ELIZA, available today in slimmsd-dawn versions for any 
microcomputer, simulates a psychiatrist and imitates the 
psychiatrist's typical way of talking. People used in the 
initial tests were very surprised to learn after their 
respective ssssions that they had told a machine about their 
most personal problems. 

Subsequent development of artificial intelligence resulted 
in the experts creating a program implemented on a PDP-10: 
ADUENTURE - Colossal Cava. For a change, the learned 
gentlemen were allowed to explore another field, that is 
look for treasure in a dark world governed by magic. 
Collosal Cave enjoyed great popularity among experts and was 
Finally made available to fairly large numbers of the public 
in the summer of 1973. MICROSOFT, a firm probably known 
today to Bveryone, published "Microsoft's Adventure", a 
diskette version oF this original adventure For the most 
popular microcomputer in America then, the TRS-80 . 

The adventures were however made socially acceptable as 
early as 1979 by a young American names 9cott Adams, who 
with his ADUENTURE LAND laid the Foundation For the soFtware 
Firm ADUENTURE INTERNATIONAL. 
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This game, too, involves finding treasures in a mystical 
world, which naturallg is madB difficult by dragons, mazes, 
rivers of lava, and other dangers, Everything begins quite 
harmlessly in the middle of a woods. But when you have got 
your bBarings and know in what direction you have to go to 
find the entrance to the underground kingdom, then . . . 

The demand for ADVENTURE LAND was immense, probably because 
at the time there were no other games of quality. Because 
of its great success, ADUENTURE LAND was quickly followed by 
a series of IS adventures, skillful selection of the subject 
matter keeping the customer's interest alive. 

Should you ever want to pick a fight with Count Dracula, you 
can in "The Count". Or would you prefer to find a saboteur 
in an atomic power station? No problem, "Mission 
Impossible" makes it possible. 

At this time therB appeared on the American software market, 
a type of program callsd "INTERACTIVE FICTION". Thsse 
programs were supposed to represent a new type of literature 
and, as the name implies, were supposed to be books calling 
for participation. At first the player is only a reader. 
After the start of the program, he is very definitely 
brought into action. Numerous pages flicker over the 
screen. These give the reader information on what has 
happen bBfore, the present situation, backgrounds, etc. and 
can be read Just like a book. 

Thus "Local Call for Death" bsgins Just liks a detsctive 
story. Three men meet in their clubhouse. During the 
course of the evening one of them is called to the 
telephons. It is the nephew asking his visibly Bxcited 
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uncle For money. The unclB refuses however to help him, 
knowing from experience that the moneg will be gambled away 
at the racetrack. The next morning he learns of his 
nephew's suicide. 



At this point the player takes over. He represents one of 
the principal characters and endeavors to throw light on the 
apparent suicide by direct conversation with the 
participants. 

A typical feature of these programs is the concentration on 
a single task, as in this case solving a murder. 

To achieve this task, we as players must skillfully use 
questions more than objects. Which tends to be more 
interesting: "to read a conversation in a book?", "to 
follow a court case in a film?", or to "experience the 
success achieved in convicting a criminal?" 

It is this very ability to hold dialogues that gives 
Interactive Fiction its appeal. A classic example is 
"Encounter in the Park", published by Adventure 
International . 



In this game we meet our dream woman during a morning walk 
and it becomes our intention to enchant this girl and 
persuade her to consent to marriage. The programmer has 
given the player a wide spectrum of persuasive arguments, 
and it really is a lot of fun to find out how the lady 
reacts to certain suggestions. 
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The worst that can happen to us if we make suggestions that 
are too frivolous is that the lady turns away From us 
incensed and we spend the rest of our life in monastery. 

As already said, all these textual adventures proved to be 
of very great interest and accordingly a growing number of 
firms published mare or less good copies of these games. 
With increasing pressure from competitors a number af 
software manufacturers started thinking about new 
generations of adventure . 

There appeared the First HAZE ADUENTURES, the aim of the 
game being to escape from a building, but nearly always the 
player got hopelessly lost in the maze, shown in perspective 
on the screen. The next stage of development was the QUEST 
ADUENTURES, which in most cases were implemented as real- 
time adventures. Here the player is subjected to additional 
stress, for unless on the appearance of some robbers he does 
not immediately input F for Fight and then does not 
continually press certain keys or combinations of keys in 
order to brandish his sword, the game ends very early 
because the main character is too badly injured to continue. 

Unfortunately the conception aF thesB games greatly 
restricts the player's freedom of action, since he is left 
with only a few actions such as fight, negotiate, buy, or 
Flee on the menu. 

The next stage in the development Df adventure games was 
made passible thanks to the Falling prices For graphic 
processors and RAtl modules, For now it was no longer 
diFFicult For computer manuFacturers to oFFer home users 
inexpensive computers with graphics, previously available 
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only on much larger and therefore much more costly 
equipment . 

With the sale of the first GRAPHIC ADUENTURE th BSB Dames 
were given a new boost in 1985 tsomewhat earlier in the case 
of Apple users 3, for while they had been frowned upon by 
many computer users as pure textual games, they now suddenly 
became interesting because of the many colorful pictures; in 
addition they proved eminently suitable in their ability to 
elicit at least an astonished "Oh, that's nice!" from 
relatives not familiar with computers, following the 
question "What can your computer do then?" . 

Naturally nothing at all had changed in respect to the value 
and aim of the game. Suddenly further groups came within 
reach: a reason for Flooding the market with many well-known 
adventures in the new garb, adventures that had been known 
for years; the detailed descriptions had disappeared and 
instead the current situation was to be seen on the 
television screen. 

Whether as a result the programs had become better or easier 
to play is an opBn question. I personally prefer to have my 
attention drawn to important things by a statement such as 
"I am in the woods. There are nothing but trees around me. 
Between two oaks I see a hole in the ground." than, in 
contrast, to see only a few trees; I then regard these as 
appearing a bit too early for an otherwise quite normal part 
of woods, for which reason I move on quickly, examine the 
trees no further, and as a result naturally overlook the 
hole, a small patch on the monitor. Needless to say, a 
successful conclusion to the game is not possible. 
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2. THE CONCEPT 

5.1 PREPARING THE ADVENTURES 

In the Following chapters of this book we shall develop a 
number of adventure games together. OF course we want to 
give our work as proFessional a look as possible, so we 
shall not be able to avoid analyzing the properties and 
special Features oF programs already on the market . 

Then we shall think about how we can program the individual 
Functions in BASIC. 

It has already been emphasized that an adventure is intended 
to move the player to another world, a world that makes the 
impossible possible. He is intended to experience 
adventures here, so he must be able to move and act. 
Likewise the results oF his eFForts must be communicated to 
him. Sensible, planned action is not however possible For a 
human being until he has used his senses. The information 
that in real liFe the adventurer picks up with his eyes, 
ears and sense oF touch must therefore be offered to the 
player in another manner. 

Since thB human brain cannot as yet bB connected direct to a 
computer, we obtain answers to the questions "Where am I?", 
"what do I see?", "where can I go?", "what do I feel?", and 
"What do I see?" in the form of short, but complete 
sentences . 
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A conscious understanding of the environment will of course 
not be possible except in the rarest of cases. Therefore 
the adventure player cannot be expected to study extensive 
trBatisBs on the world he has Just entered, otherwise he 
will never identify himself with the character in the game 
and indulge in the illusion of a fictitious world. 

Therefore, unless it is a question of graphic games, the 
monitor picture is divided into two clear zones, each of 
which has a precisely defined function. 

The upper half of the picture will tell us where we happen 
to be and what we see, whilB the lower half is intended for 
communication with ths main character acting for us in the 
adventure. Here we input our instructions and learn what 
happens following our inputs. 

In this way we are enabled to move an in an imaginary world 
in accordance with a set plan, Just as we ars enabled to 
carry out sensible manipulations and actions. 

A typical screen picture could look something like this: 

I am in a dark wood . 

I see a lot of old tress. 

I can move north, east, west. 



What am I to do? 
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Should uie intend to advance as quickly as possible in the 
game, it mould be wrong to walk aimlessly in the direction 
of one of the three cardinal points. The most obvious thing 
for an adventure player to do in any situation is to examine 
everything as carefully as possible. Thus possible answer 
to "Examine tree" would be something like this: "They ore 
old oak trees" or "Here the trees are dying off all around". 

These answers, it is true, do not help us, but apparently 
only show us that after all it is not always important to 
examine everything . But how is one supposed to know the 
answer in advance? For even an answer like "In the tree 
trunk I see an opening" would have been possible. Perhaps 
it is an old nest made by a woodpecker with part of the 
treasure concealed in it; "Examine opening" will throw light 
on the matter . 

If we did not find any clues, even following "Explore wood" 
tit could be magic wood3, we should have to decide where it 
would now be sensible for us to go. 

How would you behave in such a situation, without map and 
compass, helpless and alone, far from all paths? Presumably 
you would climb up a tree in order to see what there is in 
the immediate vicinity and in the distance . 

Therefore your input should rBad "Climb tree" and if you do 
not receive a statement such as "I am not athlBtic enough 
for that!", the picture on the monitor will change: 
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I am in the crown of an old oak tree. 
In the north I see a mountain range, 
in the east a lake, 
in the west rising smoke. 



I can go down 



CLIMB TREE 
□kay ! 

What am I to do? 

The situation now looks a lot better, since following the 
input of D for Down the only problem we still have is to 
decide which area we want to visit first. 

The statement "Dkay ! " tells us that the input has beBn 
understood and executed. Had that not been so, we should 
have received "I do not understand the verb" and the program 
would undoubtedly have caused us to use a different mode of 
expression. The same applies to to the object of our input. 

Conceivably there are two other answers. In one case we 
shall often receive the statement "I must be stupid, 
but....- I do not understand what you mean!" With this the 
program intends to tell us that the words used do belong to 
the programmed vocabulary, but that at the moment the 
command is not a sensible one: "Take key" will be 
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understood by the adventure program if a key appears in the 
adventure, but becomes meaningless if the key is not in the 
same space as the player . 

The position is similar with the second standard statement 
"You can't da that ...yet." Should we get this answer, we 
may breathe a sigh of relief , far we arB on the right way; 
the only thing is that not all the necessary conditions for 
execution of the command have been fulfilled. Thus a locked 
door cannot be opened unless we have the appropriate key . 
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2.2 STANDARD FUNCTIONS OF THE ADVENTURES 

In an average adventure uie Find 30 - 35 different three- 
dimensional spaces and in each space one or more objects. 
These objects in turn can contain other things, and as one 
never knows exactly what will be needed in the 
adventure, they take with them everything that gets into 
their hands and is not too heavy to carry . 

It becomes very difficult to maintain a perspective, since 
we naturally do not make notes. 

Fortunately programmers quickly recognized the situation, 
with the result that today after input of INUENTORY every 
adventure prints out an the screen all the objects that we 
carry with us. 

Should the adventure be a friendly one or one written 
specially for beginners, it is possible for us in some 
situations to obtain tips, since then the command HELP may 
be implemented . 

As distinct from the standard input consisting of verb and 
object, what is involved here, as in the case of Inventory, 
is a one-word command that will initiate an action, but can 
do many things: 

"I would examine everything" shows our negligence. On the 
other hand the statement "A fairylike figure appears and 
writes the sentence "Open sesame" in the sand will in a 
confusing situation cause us to Jump for Joy . 

Things look worse if we havB to pay for the help: 
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A troll appears and says that we are having 10 points 
deducted For his help. He wants to know whether we need 
help . 

Presumably in such cases dark clouds will appear on the 
horizon. If on inputting "help" we get the message "Help is 
not provided For in this adventure! " or if in answer only the 
general playing instructions are repeated the we know help 
is not provided . 

No doubt it may be annoying if, despite all your efforts, 
you cannot move on when a certain point is reached, but no 
one should regard the last two examples as an act of malice 
on the part of the programmer. If the help function were 
guaranteed, some particularly clever people would solve the 
adventure in 30 minutes, but would never appreciate the 
fascination of such a program. 
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2.3 THE FIRST STEPS TO YOUR ADUENTURE 

The general structure of the adventure games is nam known to 
us . We havB some idea of how our adventure has to present 
itSBlf on the monitor and what functions we have tD 
implement as standard. In what follows we shall therefore 
think about thB individual BlemBnts of our adventure systBm 
and about achieving them through our programming. 

5.3.1 SPACES in the adventure: 

The adventurs world is composed of the spaces in the 
particular game ccmcBrned, that is to say each place that 
can bs reached by the player wandering about in the 
adventure is called a space. It's size is totally 
irrelevant. As in our previous examples, it can be woods or 
the crown of a tree or the inside of a car or a mine. 

The individual spaces so far as ths player is concerned are 
distinguishsd by thsir descriptions and thsir geographical 
arrangement; from the programming point of view, as we 
shall see, they are distinguished by their space number. 

All these spaces can bs rsached by the player and must 
therefore be Joined together in some way or other. In every 
adventure it is possible to move in the direction of all 
four cardinal points Cnorth, south, east and westD . Some 
allow movement also in a vertical plane. Needless to say, 
however, a situation in which the player leaves space 5 in a 
westerly direction, enters spacB 6 from the east, and 
wanting to return tD space 5, cannot find a way in an 
easterly direction, or, worse still, gets into space 5 again 
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by moving down must not be al lamed to arise. Here again the 
exception proves the rule, for what would an adventure be 
without a magic maze? 

5. 3. 2 OBJECTS 

(lost "spaces" have "objects" contained inside them. We must 
accommodate all objects in the spaces or, more correctly 
expressed, allocate a space to each object. With this 
allocation we automatically ensure that no objects are 
duplicated . 

A Further problem that presents itself is the placement of 
objects that must not be in the adventure at the beginning 
of the game. Where do they stay until thBy appear? 

LBt us assumB that our tiBra entBrs a spacB and that only an 
old, lockBd wooden box is discoversd, it being the only 
visible object. 

Following thB player's input "Open box" all the rules of the 
logic demand that the old, opensd box should appear, fillsd 
possibly with silver coins. 

The solution to these problems will not pressnt us with any 
particular difficulty. In our adventurs uie shall install an 
additional space, thB STOREROOM, and in it store all objects 
not presently being used. If we do not program any 
connections to this space, the player can never enter it. 
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2.3.3 INPUTS 

In this chapter me shell see how simple it is to program the 
storeroom and the entire adventure world; later on in thB 
book we shall see the need For Further SPECIAL SPACES. 

As already seen From the preceding text, the player's inputs 
consist mostly oF a verb and an object. Our program must 
thereFore First test whether. the input is allowed, For which 
purpose separation into verb and object becomes essential. 
Should the playBr have written something incorrectly or 
should the verb used not be provided For, a suitable message 
must be given. IF our adventure Finds the input verb in its 
vocabulary again, the object must be checked in the same 
way . 

IF both words are deFined, the program can react in the 
manner prescribed. 

When compiling this vocabulary, the programmer must exercise 
particular care and anticipate all possible inputs that a 
player could make. IF the player takes too long in making 
his wishes clear to the adventure, he will quickly lose 
interest . 

2.3.4 MESSAGES 

Naturally the execution oF a command must be mode clear to 
the player. In the simplest case this is done with "O.K.", 
but usually additional messages are output. The most varied 
inputs oFten require the same answer, so the sensible thing 
to do is to make a table with speciFic standard messages. 
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2.4 THE IDEA OF THE SAME 

With this we have mastered the minimum of dull theory. Now 
uie can switch on our Commodore 64 and begin some practical 
work. Perhaps you already have some fixed idea of your 
first adventure. If not, allow yourself to be inspired by 
the following suggestions. 

1. THE HAUNTED HOUSE 

You receive a letter from your aunt, her last 
letter in which she bequeaths her old, palatial 
home to you . There is however a note that is 
supscious, a note to the effect that you should be 
careful , otherwise what happened to your uncle 
could happen to you . Such talk does not stop you 
visiting the house. Immediately you find all sorts 
of inconsistencies, you find a secret library with 
books on necromancy, and in the cellar discover a 
sacrificial alter. Innumerable ghosts make life 
difficult for you until you finally discover that 
one of your ancestors murdered the SBct leader in 
order to increase his own power and by way of 
punishment was buried alive. You are now to help 
him to find eternal rest. 

2. THE OLD MAN'S LEGACY 

Your friend and neighbor, a famous scientist, has 
died in mysterious circumstances. You receive a 
note in which he asks you to complete his life's 
work. When you have managed to get into his 
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secret laboratory, it is your Job to put his 
supercomputer into operation. The computer then 
gives you Further information. 

3. STAR ODYSSEY 

Your spaceship is so badly damaged by a cosmic 
storm that you have to land on an unmanned station 
in order to get replacement parts to enable you to 
return to Earth. 

4. SOLD FEUER 

In the wilderness you meet a mortally wounded old 
man, mho tells you about his goldmine. He shows 
you a number of pieces Df gold and tells you that 
he has hidden more gold at several different places 
in the mine and that because he no longer needs it 
you may take it for yourself. 

I should like to take the latter suggestion, an adventure 
involving a treasure hunt, as a basis for the next chapters 
in this book and elaborate upon it with you . Needless to 
say, you are free to realize any idea of your own, but in 
the case of all examples still to be introduced I shall 
repeatedly make reference to Sold Fever. 
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3. PROBRAMMING YOUR ADUENTURE 
3.1 FORM INS THE WORLD 

With the selection of the subject the rough course of events 
in the adventure is already established. In what follows we 
shall work out a number of structures and go on improving 
thsm until a world planned down to the last detail has been 
created . 

We shall do exactly the same with the programming; we shall 
build up our adventure step by step and repeatedly satisfy 
ourselves that the individual routines are functioning 
correctly . 

However, in order to be able, if necessary, to exchange or 
supplement individual parts of the program, I should like to 
ask you at this point to use only the specified line 
numbers . 

3.1.1 THE MAP 

At the beginning there is nothing. In what follows however 
we shall use our imagination to create the world so urgently 
needed for our game. What our world has to offer is 
determined by the subject. Gold Fever will presumably take 
place in and around a mine. 

Let us just imagine the mine: a fissured, boulder covered 
slope; a tool shed; wooden troughs bringing water from a 
mountain stream for washing the gold; rotten, dry wooden 
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beams lining the dark entrance; dark passages Full of 
danger . 

Na doubt many similar pictures will easily occur to us and 
make us Find a suFFicient number oF spaces For the action 
planned . 

I should First like to limit our example to Just six spaces. 
Let us begin with a walk through a wood to the mine, where 
our task will be to look For the treasure. 

We can content ourselves with Finding all the treasure, but 
we can also set the adventurer to the task oF depositing the 
treasure in a saFe place. For the time being, however, let 
Finding the gold be enough. 

The task and objective has been Fixed, also two essential 
places, one the woods, which we shall build up out oF two 
spaces, and the other the mine. It is oF course clear to us 
that we cannot develop any action in this small world, For 
we need room in order to be able to hide a number oF objects 
and set a Few traps For the player. 

Normally a mine will not begin between the roots oF a tree; 
we must create suitable crossings in the landscape to make a 
realistic game possible. 

Three Further spaces provide us with suFFicient room For 
working out the First version oF our adventure, and we can 
now draw up a list oF all the places involved. 
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in the woods 

the edge of the moods, bound by □ sloping rock face 
□ clearing in the moods 

a clearing in the moods on the mountain slope 
the entrance to the mine 

To complete the program, the next step is to produce a map 
in which all the places are represented by rectangles. 
These are numbered consecutively and given their space 
description. Here we pay attention to the phrasing to allow 
for the line length of 40 characters of our Commodore 64. 
Our description must follow smoothly from the introductory 
text "I am". What number the individual space gets is of no 
importance. Ule have only to begin with one and go an 
counting consecutively, thus avoiding duplicate numbering. 
Following this we Jain the spaces together and at each 
boundary note down the corresponding cardinal point . 

It can now readily be seen from this map that if For example 
the player is in space 3, the following messages have to be 
output on the monitor . 

"I am in the woods. In front of me there is a steep 
sloping rock Face". 

In addition our map gives us information on the possible 
directions of movement: 

"I can move west, south." 
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IN FOREST 



<3> 



IN FOREST 



FOREST AT ROCKY 
SLOPE 




4 15 



FOREST CLEARING 
MOUNTAIN CAVE 



<33> 



ENTER FOREST 
CLEARIMB 



Far each space in our program uie could now program a 
condition such as ; if the player is in space 3, then print 
"I am in the moods. In front of me there is a steep sloping 
rock face.", but then we should have soon filled the memory. 

The principle is however correct. We shall store the space 
descriptions in a field of variables, to which we sensibly 
give the name SPACE . 
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3.2 variables and Fields 

In order to store intermediate results or data relating to a 
program, variables are used in every computer language. 

These variables act like small pigeon holes in which 
something can be deposited for safekeeping. ThesB pigeon 
holes have names Cfile cabinet or desk drawer would be 
possible]. Then there are pigeon hales of the same kind: 
drawers 1,2,3, etc. in a desk, one below the other. Each 
pigeon hole is called a drawer and differs from the next 
only in its number. It is the same in Basic. We can give 
each variable a name of its own and an index number . This 
is then written in brackets behind the name of the variable. 

Here two fundamental types of variables can be distinquished 
One takes only numbers, numbers that can be used for 
calculation, while the other is used for texts. The 
composition and length of the texts are not important, or, 
mare precisely, we want to allow every character en our 
keyboard and lengths of up to 255 characters one after the 
other . 

A few examples of correct variables would be: A, Al, A2, 
TE1 Conly numbers!), TEXTS1 Cfor texts3 as simple variables, 
ACID, AC23, AC33 as subscripted variables. 

Perhaps you have already seen someone trying to brighten up 
their homes with letter cases filled with small miniatures 
Csuch cases were created for keeping the small letters used 
by printers}; let us beginners now visualize each individual 
letter case as a variable. 
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To have a practical example Immediately to hand, let us do 
the following, preferably only in thought: 

From our adventure map we cut out the rectangles of the 
individual spaces. Ule placB each of the rectangles in a 
separate case, taking care however to ensure that the 
earlier arrangement of the spaces is retained, that is to 
say our woods lies right at the top on the left, while the 
entrance tunnel is located in the second row on the left. 

To the question "Where is the mine?" we could answer "In the 
first column of the second row." Likewise the positions of 
all other spaces are determined by the row and column co- 
ordinates. In computer languages this arrangement is called 
a two-dimensional array . 

In BASIC we would call our letter case the variable field 
MAPS CS because texts are to be stored] and allocate the 
following contents to the individual variables: 

MAPS CI, 13 - "in the wood", first row, first column 

MAPS CI, 33 - "clearing in the wood", first row, third column 

MAPS C2.23 - "entrance to the mine" etc 

Therefore we input the following program tBxt: 

500 REM SPACE DESCRIPTIONS 

501 SPACES C13 - "in the wood" 

502 SPACES C23 = "in the wood" 

503 SPACES C33 - "in the wood in front of a rocky 
slope" 

504 SPACES C43 - "in a clearing" 

505 SPACES C53 - "in a clearing at the foot of a 
mountain slope" 
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SOB SPACES CB3 - "at the entrance tunnel to an aid 
mine" 

This establishes the spaces in our computer. The only thing 
missing is the character that moves in the programmed world 
and describes tD us the situation in which it happens to be 
at any given moment. Its location will naturally be 
dependent on our inputs; therefore we introduce a Further 
variable, which we will call PLAYER. This variable stores 
the player's position at any given time. 

Meaningful values For this variable are the figures one to 
six, since PRINT SPACES C PLAYER 3 then prints out the 
respective descriptions of the location "space" . For test 
purposes let us input the next lines: 

Note: I should like to ask you once again to retain the line 
numbers specified, as some of the lines are changed with the 
subsequent development and unused numbers are occupied by 
additional program lines! 

1140 PRINT"I am" 

1150 PRINT SPACES C PLAYER 3 

1390 INPUT "MOUE PLAYER INTO WHAT SPACE"; PLAYER 
5000 QOTO 1140 

This makes reconnaissance in our world possible, but the 
method of progression is in no way satisfactory. We do not 
want to Jump at random from one space into another, but 
strive to take specific bearings from the cardinal points. 
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Normally the space Just visited by the player mill have at 
least one or a maximum of six exits. In the Bast space-S 
joins space-1. No exits lead in the directions north, 
south, and west or up and down. IF we agree that the 
cardinal points are always named in the sequence N, S, U), E, 
UP and DOWN, space-1 can be specified as follows: 

1 in the woods -, -, -, X, -, - 

Appropiately exits are not then marked by an x, but the 
space to be reached in this direction is explicitly 
indicated: 

1 in the woods 0, 0, 0, 5, 0, 

£ in the woods 0, 0, 1, 3, 0, 

These six values are stored in a variable for each space 
Clet us call it PASSAGED. Since here two different values 
Cspace and direction] indicate the space to be entered, 
storage in a two-dimensional array is appropriate, the row 
in each case being equal to the space and the columns, one 
to six, corresponding to the possible ways. 



SPACE 


N 


s 


III 


E 


UP 


D 


1 





. 





S 








2 








1 


3 








3 





4 


£ 











4 


3 





5 











5 








E 


4 








6 











5 









It should not be difficult for anyone to program this 
direction table Calso called a travel table}. 
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Beginners who do not understand the next lines are asked to 
refer back to our previous example based on a printer's 
letter case. 

101 PASSAGE CI, 13-0 : PASSAGE CI, 23-0 

102 PASSAGE CI ,33-0 : PASSAGE CI, 43-2 

103 PASSAGE CI, 5 3-0 : PASSAGE CI, 63=0 

The above lines program the passage from space-1 to space-2 
in an easterly direction. Ule could proceed likewise with 
the other spaces, but that would be very wasteful as memory 
is concerned Chow often do we write "passage"?3 . Moreover 
the immense amount of typing is not a particularly enjoyable 
job. 

For this reason we dispense with lines 101 to 103 and at 
this point prefer to use the commands DATA and READ. Please 
delete line 101-103 from your computer's memory. 
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3.3 READ & DATA 

Generally we use the INPUT instruction to pass data to a 
running program via the keyboard. It has the form INPUT UAR 
CUAR can be any desired variable]. For sequential inputting 
of several variables, DATA statements are used. Data 
separated by commas, is added to our program: INPUT LENGTH, 
WIDTH, HEIGHT can accordingly be three Figures in the 
program listed one aFter the other, which are then 
available For Further processing. 

IF the data is known at the start oF the program, they can 
be incorporated directly into the program, which naturally 
makes sense only iF they are always the same For each 
program run. The keywords necessary For this purpose are 
READ and DATA . INPUT is replaced by READ: READ LENGTH , 
WIDTH, HEIGHT thereFore perForms the same Function, and the 
input data is stored with DATA 1, S, 3 in any desired 
program line. 

It is important to know that the data is read in sequence. 
ThereFore the number oF data in DATA lines must be equal to 
the number oF variables in READ instructions, otherwise 
there will be an error message or not all the data will be 
read . 

IF the data is to be read in again, beginning with the First 
element, the command RESTORE must be usBd . 

ThereForB we input the Following lines into our G4: 
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500 REM SPACE DESCRIPTIONS 

501 DATA "IN THE WOOD" 
505 DATA "IN THE WOOD" 

503 DATA "IN THE WOOD IN FRONT OF A ROCKY SLOPE" 

504 DATA "IN A CLEARING IN THE WOOD" 

505 DATA "IN A CLEARING AT THE FOOT OF A MOUNTAIN 
SLOPE" 

505 DATA "BY THE ENTRANCE TUNNEL TO AN OLD MINE" 

ThB data must now be transferred to the work variables. 
This allocation is done by READ SPACES CI3. C 1 3 takes the 
space numbers one to six in sequence. To avoid errors, the 
number of spaces must be known; we introduce the variable NS 
- number of spaces. They should be initialized right at the 
beginning of the program text. 

110 NS-S 

Using a loop the space descriptions are read in: 

815 FOR SPACE-1 TO NS 
850 READ SPACES C SPACED 
870 NEXT PAGE 

In the same manner our direction table is implemented; to 
keep an overall view, we write the direction values into 
respective data lines directly behind the spacB 
descriptions: 

500 REM SPACE DESCRIPTIONS 

501 DATA "IN THE WOOD", 0,0,0,E,0,0, 
50E DATA "IN THE WOOD", 0,0,1,3,0,0, 

503 DATA "IN THE WOOD IN FRONT OF A ROCKY SLOPE", 
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0, 4, E, 0,0,0 

504 DATA "IN A CLEARING IN THE WOOD", 3,0,5,0,0,0 

505 DATA "IN A CLEARING AT THE FOOT OF A MOUNTAIN SLOPE" , 
0,0,6,4,0,0 

506 DATA "AT THE ENTRANCE TUNNEL TO AN OLD MINE" , 
0,0,0,5,0,0 

The possible exits must be read in together with the 
descriptions. Since six direction data items Follow each 
space, a second loop is constructed within the First: 

855 FOR DIR-1 TO 6 

860 READ PASSAGE CSPACE.DIR3 

865 NEXT DIR 

Accordingly each row oF our array is identical with a space; 
in the six columns of each raw are stored the space that the 
player can enter by inputting the direction concerned. 

With this arrangement it will be possible For us using a very 
simple method to achieve the player's progression. 

However, beFore the player can turn in any direction at all, 
he must be able tD Find out which ways are available to him. 
ThereFore we must develop a number oF program lines that 
print out the Free cardinal points on the screen. 

Let us assume that our principal character is at present in 
space 3 . 

Row 3 oF our direction table is now consulted: 
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All uib have to do is output the designations of those 
columns that contain no zeros; in our special example 
columns two and three, south and west. 

As we have established, the row in the field is identical 
with the space to be examined; to keep this actual space 
number ready, we have previously introduced the variable 
PLAYER. Therefore, to output the unblocked directions, our 
program must test the six directions of the space SP and 
print out the names of all columns that are not equal to 
zero . 

Six directions must be checkBd: 
1S50 FOR DIR-1 TO 6 

1EB0 IF PASSAGE CPLA, DIR3O0, THEN PRINT 
"** EXIT ***' 
1310 NEXT DIR 

In a test run our program will now describe Bach space and 
indicate each possible exit, but unfortunately not its 
direction. Therefore we prepare a further field, a field 
with the designations of the direction COIRS] : 
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1050 DATA NORTH, SOUTH, WEST, EAST, UP, DOWN 
1030 FOR DIR-1 TO 6 
1040 READ DIRS CDIR3 
1050 NEXT DIR 

The designations of the six directions are stored in the 
individual elements, and ujb can visualize the Field 
DIRECTIONS as a kind oF template that during the program run 
is placed on the actual row oF our direction table: 

1EB0 IF PASSAGE C PLAYER, DIR3O0 TEN PRINT 
DIRS CDIRD 

To chBck, uie start our program and input a Feu space numbers 
- a glance at our map will convince us that we have so Far 
done everything correctly . 

AFter these preparations we shall now make movement in our 
adventure passible. 

Anyone who has played an adventure game will know that 
inputting a cardinal point For the purpose oF progression is 
probably the most Frequent instruction given. ThereFore, as 
programmers, we should accommodate the player by regarding 
the inputting oF the initial letter as adequate, thus 
sparing the adventurer the task oF writing out ths cardinal 
points and accordingly pressing keys several hundreds oF 
times . 

In point oF Fact many adventure games can be Found that For 
movement have no routine For command decoding and need 
explicitly a SO WEST. 
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Let us first replace line 1390 in order to permit inputs to 
the adventure: 

1390 INPUT"UMAT AM I TO DO?"; ENTRYS 

Before our program carries out any instructions of the game, 
it should first check the length of the player input. If 
the input is longer than two letters, it will be a question 
of some action or other, otherwise the movement routines 
must be checked. This first tests whether the way in the 
desired direction is at all free. If it is, reference is 
made to the direction table under the appropriate direction 
C column 3 of the spaco in which the player happens to be and 
the new space is read off and allocated to the appropriate 
variable CplayerD. In conclusion the player is informed of 
the execution of the action. 

1080 PRINT 

1400 IF LENCEN$3>2 THEN 1500 

1410 IF ENS="N" AND PASSAGE C PLA ,13<>0 THEN 

PLA=PASSAGECPLA,13: PRINT"0 .K . " : GOTO 1080 
14S0 IF ENI="S" AND PACPLA,SD<>0 THEN 

PLA-PA C PLA , E 3 : PR I NT "0 . K . " : G0T010B0 
1430 IF ENS="UI" AND PACPLA, 3D<>0 THEN 

PLA-PACPLA, 33 : PR I NT "0 .K . " : 60T010B0 
1440 IF ENS="E" AND PACPLA, 43<>0 THEN 

PLA-PA C PLA , 4 3 : PR I NT "0 . K . " : G0T010B0 
1450 IF EN$="U" AND PACPLA, 53 <>0 THEN 

PLA=PA C PLA , 5 3 : PR I NT "0 . K . " : G0T010B0 
14B0 IF ENS="D" AND PA3PLA, 63<>0 THEN 

PLA-PACPLA, B3 :PRINT"0.K. ":G0T010B0 
1470 PRINT"Y0U CAN'T GO THAT WAY" : GOTO 10B0 
1499 REM 
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At the beginning af each game we must naturally inform the 
program of the starting space: 

150 PLAYER- 1 

A short walk through our adventure world will now quickly 
convince us that uie must next tackle the matter of the 
monitor picture or after a few moves our eyes will db 
presented with a confused picture of little informative 
value . 



3B 



ABACUS Software 



ADUENTURE GAMEWRITER *S HANDBOOK 



3.4 FORMATTING THE OUTPUT 

In order to obtain a clean screen image, thB screen must 
naturally be cleared at the start of the game: 

1070 PRINT CHRSC 1473 
1080 PRINT 
5000 GOTO 1070 

Needless to say, this empty line is meaningless on an empty 
screen. It will always be essential after execution of a 
command, since our input and any communications that may 
have been given must be on separate lines. We achieve this 
scrolling by PRINTing into the last line on the screen; it 
is necessary at a conclusion to any move in the game. 

For our inputs we will use the lowest line. The question 
now facing us is how after autputting the information to the 
player in the top third of the scrsBn we get to the last 
line . 

The Commodore B4 offers us two possibilities. We could for 
example use the cursor control commands. We could move the 
cursor down a suitable number of lines, but unfortunately 
this difference is dependent on thB amount of information 
output, that is the number of objects, and this value is not 
readily available during the game. 

What we need is thB "PRINT AT position" command, command 
that in addition to the data to bs printed allows for the 
exact output position on the screen, Apparently our B4 lets 
us down here. In actual fact it offsrs us the same 
possibility as ths IBM - PC or other 16-bit computsrs. It 
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is true, ue do not find it in the Commodore Basic, but it 
nevertheless exists, the so-called LOCATE command. This 
command positions the cursor at the required point before a 
PRINT operation. This is done by specifying the row and 
column, then positioning the cursor at that location. 

□ur BASIC interpreter must during a screen output naturally 
known exactly where the cursor is and for this purpose has 
two storage points reserved for holding this data. Ue shall 
make use of this feature by SBeing that the VBry data we 
want is found by the interpreter at addresses 214 for the 
row and address 211 for the column. Then we use a 
subroutine in the interpreter to position the cursor at the 
point required. 

1390 POKE 214, 24 : POKE 211, : SYS 5B732 : 
INPUT "What am I to do?"; ENTRYS 

Our input is accordingly made in line 24, and the ensuring 
RETURN will push the entire contents of the screen one line 
up. For this reason no further measures have to be taken 
for communicating the messages to the player. 

Unfortunately all outputs are at the moment madfe in the 
lowest line on the screen, but the space descriptions must 
start at the top of the screen. 

1130 POKE 214,0 : POKE 211,0 : SYS 58732 

It will of course not be quite so easy for us to inform the 
adventurer of the free Bxits, since the procedure we have 
used so far does not allow for more than three exits to be 
output on the screen, 
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No uiord should ga beyond the end of the line. The various 
cardinal points should be separated by a comma, and the 
sentence be ended with a period . 

Let us first alter line 1EB0 

1260 IF PASSAGE CPLA, DIR3-0 THEN SOTO 1310 

and let us base our further considerations on the following 
example: 

I MAY PROCEED NORTH, SOUTH, EAST, UP, DOWN. 

The first exit presents no difficulty for us; it can be 
printed out without any preliminary work. We have only to 
distinguish this first output from all further outputs, 
which is easily done. Thus the direction statement must 
always appear after "I may proceed" at the fourteenth 
printing position. Therefore: 

1870 IF POSC03-14 THEN PRINT DIRSCDIR3; 
: SOTO 1310 

In the case of the following direction statements however we 
must first carry out a test. It is important to know 
whether we are writing beyond the end of the line. Should 
this not be the case, we first print a comma and then the 
next cardinal point: 

1SB0 IF POS C □ 3 +LEN CDISCDIR1 3 < 37 THEN 
PRINT" , *':DIR$CDIRD ; : SOTO 1310 
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Should the total length of output bBcoms greater than 37, a 
comma and thB selection of thB next line are output by means 
of a PRINT command: 

1ES0 IF PDSCD3+LENCDISCDIRD D > - 37 THEN 
, PRINT ", " PRINT DISCDIR3; : GOTD 1310 

With that the line in our example would db print "DOWN" on 
the nsxt line. This direction statemsnt lies in a line 
rangs not yet interrogatsd by our conditions. A typical 
feature of this range is that it must have a printing 
position greatsr than two and smallsr than sixtBen: 

1300 IF POSCOK IB AND P0SC03 >£ THEN PRINT 
DIRS CDIR3; : GOTO 1310 

With thsse four linBs we have covered all possibilities. 
The final period is in any case necessary only once and is 
therefore placed after Isaving ths loop: 

1310 NEXT DIR 
13E0 PRINT*'." 

Perhaps we need to explain why we need tBst the lins length 
only up to 37 whsn after all a screen line goes from to 
39. You will find ths ansuier both in line 13E0 and in the 
comma in 12B0. 
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3.S GOLD, SILUER, AND OTHER USEFUL THINGS 

A walk through our adventure world so Far will have given 
the adventurer an impression of great desolation in a scene 
devoid of all interest, for after all no objects of ang kind 
necessary to the plot are available to him. Likewise with 
the best will in the world pure descriptions of places will 
not permit a game. Therefore let us take our map again and 
enrich our world with the objects required, generally 
restricting ourselves to objects important to the game. 
Finally we have to ensure that everything the player finds 
can be picked up and examined by him. None the less we 
cannot avoid placing at least one object in each space, 
since it is very doubtful that the adventurer sees nothing 
at all. If our imagination is not sufficient, the object 
concerned need be nothing in particular, a formula we so 
often find in adventure games because it reduces the amount 
of work involved, since in a normal woods trees, bushes, 
grass, insects, etc. really are nothing in particular. 

Often however even unnecessary things cannot be dispensed 
with, especially when they are part of the scene and the 
adventure is to give a realistic impression. 

Thus we too shall have to put trees in our woods, although 
the plot does not necessitate them. In space H, which 
already lies near the mountain range, a number of lumps of 
rock strengthen the impression of reality . Furthermore a 
minB calls for a shack, regardless of whether it is the mine 
owner's abode or a tool shed. Finally we must also hide the 
treasure somewhere or other. In addition a . number of 
objects more likely to harm the player than be of use to him 
are indicated. 
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Therefore in what Follows I will put in more concrete Form 
the plot I have in mind and select the objects required. 

3.6 GOLD FEUER: THE PLOT 

Uersion 1 sets the player the task oF Finding two 
treasures, pieces oF gold and silver coins, in the 
area surrounding the mine. At the beginning of 
the game the player is supposed to be in the woods 
and First has to move his way Forward to the mine. 
On his way he discovers a hole in the ground with 
a heavy iron chest lying at the bottom. The chest 
contains the silver, but unFortunately it is 
secured to a heavy iron chain with a padlock and 
the key cannot be Found anywhere. At the entrance 
to the mine however there are a number oF iron 
bars strong enough to break the chain or burst the 
lock . U)e can also let thB player try using an 
explosive by letting him Find dynamite in a wooden 
hut, a good opportunity For us to program a 
premature end For him. We deposit the pieces oF 
gold in a rock cave inhabited to the player's 
dismay by a wild bear. The player will not 
however know this until he explores the cave. 
Should his greed For the yellow metal win and lead 
him to act Fast, the bear, being hungry, will lose 
his Fear oF man, this, aFter the dynamite, being 
the second trap set For the adventure. 

On the other hand we all know that bears simply 
love honey, so let's place a Jar oF it on a shelf 
in the hut. When the player, armed with the 
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honey, enters the cave, the bear will smell it and 
disappear with the Jar into the depths of the 
cave. Then nothing more stands in the way of" a 
successful end to this miniadventure . 

The map to our adventure would now probably look something 
like this: 



IM FOREST 



IN FOREST 



PIECES OF ROCK 



9 



MINE ENTRANCE 



IRON BARS 



0> 



FOREST CLEARING 
MOUNT AINCAVE 



CAVERN 
NUGGETS 
BEAR 



FOREST AT ROCKY 
SLOPE 



VOOD HUT 

SHELF 

BOTTLE 



1 



ENTER FOREST 
CLEARING 



BUSHES 

HOLE 
SILVER 



Before we complete our adventure by programming the objects, 
we must give some further preliminary thought to the matter. 

To enable the player to get the feel of our computer world, 
the descriptions of this world will not consist of dry 
nouns, but we shall keep the player's interest alive with 
graphic portrayals. The statement "I see a bear" dees, it 
is true, allow the player to play the adventure, but the 
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statement "I see an extremely-Ferocious looking bear" will 
on the other hand enable him to participate in our 
adventure . 

Now if it is the plager's endeavor to find a new friend, an 
input such as "Stroke the extremely f erociaus-laoking bear" 
would, it is true, be easy Bnough for us as programmers to 
realize, but could not be expected of the player. Therefore 
in addition to its actual description we shall give each 
object a reference name. In this way we are able to fix the 
word length of our adventure as needed. Presumably you have 
noticed that professional adventures in the English-speaking 
world usually require only the first three or four letters 
to identify an action. If your game uses both capitals and 
small letters, please see that only capitals are used in the 
case of the reference names, as these contractions are later 
checked far uniformity with the player's inputs. 

These two fields, OBS for the object description and RNS for 
the reference names, are supplemented by a third field, DB, 
in which the number of the space in which the object 
concerned happens to be in is stored. This gives us a 
simple means of checking and manipulating the position of 
each object. So long as any particular object is not 
actively participating in the game, OB -0, otherwise the 
contents of OB correspond to the value of the variable 
PLAYER or equal -1 if the adventurer is carrying the object 
with him. 

The following DATA lines contain all the objects essential 
to the program CGold Fever, version 13. The figure at the 
end of each line indicates in what space the object is 
located at the start of the program. The quotation marks 
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are essential only if a comma is needed in the description 
of the object itself. 



300 REM 

301 DATA "LOTS OF BIO TREES" , "TRE",1 

302 DATA "LOTS OF BIG TREES" , "TRE" , 2 

303 DATA "SEUERAL PIECES OF ROCK ", ROC ,E 

304 DATA "AN OLD WOODEN HUT", HUT, 3 

305 DATA "A DIRTY JAR", "JAR",0 
SOB DATA "HONEY", "HON", 

307 DATA "DATA A UJOODEN BOX" , "BOX", 3 

306 DATA "A SHELF", "SHE",0 

309 DATA "SOME EXPLOSIUES", "EXP",0 

310 DATA "A HOLE IN THE GROUND" , "HOL", 

311 DATA "A RUSTY IRON CHEST" , "CHE",0 

312 DATA "»SILUER COINS*", "SIL", 

313 DATA "A CAUE", "CAU",5 

314 DATA "A FEROCIOUS LOOKING BEAR", "BEA",0 

315 DATA "LOTS OF SHALL BUSHES" , "BUS", 4 
31B DATA "SEUERAL IRON BARS", "BAR" , B 
317 DATA "«NUGGETS»", "NUG" , 5 

Exactly as in the case of the space descriptions uie must 
also determine the number of objects before initializing the 
variables for object descriptions COBS 3 , reference names 
CRNSD, and positions COBD: 

120 AC-17 

190 DIN SPSCNS3 ,PACNS,S3 .0BSCA03 .RNSCAO] .OBCAOD 

830 FOR OB- 1 TO AO 

B35 READ OBSCOB] , RNSC0B3 , 0BE0B3 

B40 NEXT 
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To store all the objects, 17 subscripted variables are 
necessary, the storage location for these being provided by 
the OIMensioning instruction in line 190. 

How do we make the arrangement of a space visible to the 
player? Well, quite simply: the variable PLAYER contains 
thB number of the space entered, while 0BC3 contains the 
space numbers of the respective objects. Using a loop, for 
□11 objects, we test whether this position number is the 
same as the actual space number: 

1160 PRINT "I SEE "; 

1170 FOR 1=1 TO AO 

1180 IF OBC I 3 <> PLAYER THEN 1210 

1190 IF P0S C 3 +LEN C 0B$ C I 3 +2 3 < -39 THEN PRINT 
0BSCI3: ", "; : GOTO 1210 
1210 NEXT I 
1230 PRINT 

Program line 1180 tests each object to see whether it is in 
a space other than the one in which the player happens to 
be. IF this test proves to be positive, the next object is 
immediately checked, otherwise the object description 
concerned is output in line 1190. The semicolon ensures 
that a new output will be on the same line. WE now add: 

1200 IF POSC03+LENCOBSCI3+2> 39 THEN PRINT : GOTO 
1190 

Before the next object is output, the total length of the 
printout is calculated. If by printing the object 
description, the comma, and the blank between two objects 
C therefore +23 the cursor were to reach a position greater 
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than column 39, a line feed would be triggered. Then the 
program branches to line 1190 again, the condition is 
fulfilled, and the description is printed out. The comma 
behind the last object however is unsightly, so we move the 
cursor two positions to the left and print a period. 

12S0 PRINT CHRSC157D ;CHR$C157D ; " . " 

In order to obtain the screen structure of the original 
American adventures, we still need a separating line and 
another blank line: 

1010 BLANKS-" 

n 

1E30 PRINT BLANKS 

1330 PRINT " " 

A final problem will be found after several inputs. The 
communications within the lower half of the screen keep on 
traveling up and after a few moves get mixed up with the 
descriptions of the environment. Before the communications 
are output it is the Job of the program to erase the 
uppermost lines. This can be done by printing an adequate 
number of blank lines: 

1090 POKE SI 1,0: POKE £14,0: 3YS 5B73S 
1100 FOR LINE-1 TO 10 
1110 PRINT BLANKS 
1180 NEXT LINE 

Before we now program the actual game and occupy ourselves 
with the actions in the program not visible to a player, we 
must quickly input the additional verbs necessary for such 
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actions. In addition to a series of verbs that are always 
required, such as Examine, Take, Discard, the additional 
verbs mill depend on the contents of the adventurB 
concerned. The implementation is carried out according to 
thB word length determined For the adventure: 



130 AU=7 

200 REM UERBS 

SOI DATA EXAMINE 
SOI DATA TAKE 
503 DATA DROP 
SOI DATA OPEN 
SOS DATA USE 
SOB DATA DESTRDY 
S07 DATA LIGHT 
BIO FDR 1=1 TO AU 
B15 READ UERSSCI3 
BSO NEXT I 



We can also make the picture more attractive with a few 
additions. Different colors will help us to differentiate 
between the diverse communications sent during the game. I 
have decided on a black background an which the principal 
character's communications to us are output in light blue 
and our inputs are made in white. Naturally you are free to 
use other control codes, according to your taste. 



10 PRINT CHRSC147D 

11 POKE 53SB0, IS: POKE 53SB1 , 11 
IS PRINT CHRSC1543 

1330 PRINT CHRC53 : " 
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1390 POKE B11,0:P0KE E14,24:SYS 5873E : PR I NTCHRS C 5 3 ; 
: INPUT "UIHAT AH I TO DO"; ENS : PR I NTCHRS C 155 3 ; 

Ule have thus reached the external Form described in the 
First chapter oF this book and will now establish the 
playing perFormance oF our program. 
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3.7 ANALYSIS OF THE INPUTS 

Changes in direction required by the player, a group of 
commands with word lengths of one or two letters, are 
already being recognized and correctly executed. The 
standard input however always consists of a verb and an 
object, the word lengths, apart form the minimum word length 
necessary for recognition of the terms, are not being 
subject to any restrictions. In order to be able to react 
as required by the player, our program must check his input: 

Has the verb used been programmed? 
Has the abjBct been provided for? 

If both questions can be answered in the affirmative, the 
input is broken down into a verb and an object and the verb 
and object numbers are determined; if the CDstituent parts 
of the input are not defined, an appropriate communication 
is output to the adventurer. 

3.7.1 STRING MANIPULATION 

The essential difference between a computer and a programmed 
pocket calculator is the ability of the computer to deal 
with texts. Naturally a computer has no understanding of 
texts, but interprets them as a collection of specific 
characters, what is known as a character string. Strings 
are generally combinations of all characters that can be 
input via a keyboard. The computer provides a series of 
functions for manipulating these character strings. 
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In the case of our Commodore 64 these functions include not 
only a series of conversion commands such as UALC3 and 
STRSC3 that converts a figure into a string or a string into 
a figure, but also the commands LEFTS, RIGHTS, and II IDS. 

These three functions provide a precisely defined partial 
string out of the total character string for further 
processing by the program. Thus the function 

LEFTS C "ABCDEF" , 33 produces a string comprising the three 
lefthand characters, that is the substring ABC. Therefore 
the character string to be processed and the number of 
letters required must, as necessary parameters, first be 
transmitted with the input function. The same applies to 
RIGHTS. (1IDSCXS, S, X3, beginning with position S, provides 
us with a string X characters long of XS. Thus for example 
our adventure program will ascertain the positions of the 
blank character between verb and object and then with LEFTS 
and RIGHTS ascertain these from the player's INPUTS. In 
order to calculate the number of letters necessary, the 
total length of the input must first be ascertained with 
LENC INPUTS 3 . 

If an input is not executed in lines 1290 to 1310, it is 
assumed, if the length of the input is less than three 
letters, that an input error has been made. Since "No exit 
leads there! " has been output, a new move by the player 
begins . 

If a longer input is involved, the program run is continued 
with line B000: 
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1470 IF LENC ENTRYS 3 < 3 THEN PR I NT "YOU CAN'T GO 

THAT WAY! " : G0T01090 

2000 LN-LEN C ENTRYS 3 

2010 FDR EL-1 TO LN 

2020 TESTS-IIIOSCENTRYS.EL, 13 

2030 IF TESTSO" " THEN NEXT EL 

When the length of the total input has been ascertained, 
each letter beginning From the left, is checked using a loop 
to see whether it is a space. When the space character is 
found, the length of the verb is established Cpreviously 
checked character minus 13 and the verb can be allocated to 
the variable EOS. After the remaining length has been 
ascertained, the object can be transferred to the variable 
EOS. 

If a "one-word command" was used CHELP3, the residual length 
will be less than zero. Since no abject has to be provided 
for further processing, branching is made direct Cline 20603 
to verb analysis Cline 20903: 

2040 EUS=LEFTSC ENTRYS, 33 

2050 RL - LN-EL 

2060 IF RL<0 THEN 2090 

2070 EOS-R I GHTS C ENTRYS , RL 3 

2090 EOS=LEFTSCEOS,33 

2090 FOR UN=1 TO AU 

2100 IF EUS'=UERBSCUN3 THEN 2130 

2110 NEXT UN 

Within the loop the text of the first word input is compared 
with the verbs that are possible in the game. If an 
identical string is found, the loop index corresponds to the 
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verb number and the loop is exited. If the loop has been 
completely exhausted and no identity found, this means that 
the programmer did not provide the verb concerned. The 
player is informed of this: 

2120 PRINT "I DO NOT UNDERSTAND THE UERB!":G0T0 
1080 

The object number is then ascertained using the some 
principle: 

2130 FOR N-l TO AO 

2140 IF EDS-RNSCN3 THEN 5000 

2150 NEXT N 

2160 PRINT "I DO NOT KNOW THIS OBJECT ! " : GOTO 10B0 

By creating these lines, we have put a substantial part of 
our development work behind us. The above routines ensures 
that thB screen is attractively structured, Just as thBy 
also create "understanding" for the player's input. 

They ascertain which of the possible verbs the adventurer 
has used and with which abject he would like to do something 
with. This makes it possible to branch the program sequence 
to a program line provided for execution of the action 
concerned. Because of these central control tasks this part 
of the program is also called DRIUER. 
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3.8 SUMMARY : PROGRAM STRUCTURE 

It now becomes clear that our adventure programs consist 
essentially af three parts: 

1 . The adventure data 
B . The adventure driver 

3. ThB execution af the moves in the game 

1 . The data used as a basis for the game is 
transferred to the work variables at the start of 
the program . 

2 . The control of the entire program sequence 
falls to the driver. The driver structures the 
screen output, takes over the player's inputs, 
evaluates them, and initiates the execution of the 
commands. It is independent of the particular 
adventure concerned and is used in all adventures. 

3. The third part of the program is the actual 
adventure. If all the conditions necessary to a 
plot are fulfilled, the action concerned is 
carried out. 

In order to maintain a perspective, the structure of our 
test adventures is represented schematically, the line 
numbers available are also specified. 
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INITIALIZATION 

100 BOO CONTROL UARI ABLE INITIALIZATION 
200 300 UERBS 

300 500 OBJECT DESCRIPTION AND POSITION OF OBJECT 

500 BOO ROOM DESCRIPTION 

900 1000 OTHER VARIABLE INITIALIZATION 

ADUENTURE MOVEMENT 

1000 1070 DIRECTION INITIALIZATION 
10B0 1330 SCREEN SETUP 
13S0 PLAYER'S INPUT 

1400 1500 MOVE PLAYER 
2000 3000 ANALYZE INPUT 

EXECUTION 

5000 30000 MOUES 

For the extensions to be provided later there are enough 
unused line numbers available in the individual blocks. 

U)e shall see how this concept can easily be extended to an 
adventure interpreter or used For realizing graphic 
adventures . 

Thus uie shall be able to use the driver almost unchanged and 
have only to modify the remaining parts of the program. 
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3.9 WHEN CAN ACTIONS BE PERFORMED? 

Let us now visualize the player who wants to find our two 
treasures. At a glance he establishes that he is in the 
middle of a woods, surrounded by trees and lumps of rock. 
As a proficient adventure player or reader of the previous 
chapters, he knows that what he is looking for can lie 
hiddBn in the most inconcpicuous or commonplace things. 

How will he react? 

What inputs must we expBct? 

In all probability he will try to proceed with instructions 
such as EXAMINE WOOD, EXAMINE TREE, or EXAMINE LUMPS OF 
ROCK. 

TAKE TREE is less probable, but nevertheless, in order to 
take the wind out of the sails of all critics of our 
programs, we must program a statement such as "I am not that 
strong." In addition there are many statements that show 
that an input really was understood and encourage the player 
to go on playing. 

Understandably, if the result of every second or third input 
were a "I do not know what you mean! ", i..iere would be a very 
great inducement to switch the computer off. 

Therefore in the case of spaces 1 and S, because we have not 
provided for any action here, but only want to make our 
world bigger, we shall provide only for the output of 
various messages to the player, a task quickly dealt with by 
a print command. However, after the player has Bntered 
space 3 and discovered the wooden hut, he will take a close 
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look at this and at the same time discover the shelf with 
the Jar. Naturally, in addition to the shelf and the hut, 
the jar must appear in the description of the scene C"I see 
input TAKE JAR could give us more headaches: the Jar that 
has Just appeared must now disappear. It cannot go back to 
its old place, for whBn cur player makes an INUENTORY, it 
too must of course be listed. 

During the course of play the player cannot examine the Jar 
in space 1 or space 2. In general all inputs relating to 
the Jar should be answered in the negative so long as the 
Jar is not in the immediate vicinity of the player. 

This however is a matter of taste that lies within the 
programmer's discretion, since he may hold the view that in 
reality the Jar has stood on the shelf untouched since time 
immemorial and that the player has not yet seen it . 

If however the player is compelled by the many surprises 
held in an adventure when he starts all over again, he knows 
the starting position of various objects and one can readily 
make it passible for him to take them, even though they were 
not listed in the line "I see 

Actually the process of taking is made even easier to 
program as a result. Finally there is one more condition to 
check, but we will do like most adventure producers and let 
only visible objects be available. 

Thus the wooden hut cannot be examined by our principal 
character unless it is within rBach . Ule shall not discover 
the honey until we have picked up the Jar and opened it. 
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Before any command is executed, all these conditions must 
first be checked to see whether they are correct. Even our 
short adventure with only six spaces will accordingly 
necessitate many program lines. If we consider only thB 
verbs introduced at this stags of the development C examine, 
take, discard, open, use, destroy] and pur seventeen 
objects, we already havB to program actions for 105 
different player inputs. If we were to enter all the 
program lines without any special structure one after the 
other, it mould be easy to explain very long program 
execution times. Therefore we shall now split up into 
several blocks, the part of the program to be produced. 

In principal there are two possibilities open to us. In one 
case we could reserve a sufficient number of program lines 
for each space and reserve a few statements there for Bvery 
possible action taksn by thB player. This technique is 
chosen very oftBn and also has the advantage, owing to the 
direct execution of a command, which of course does not have 
to bB prepared beforehand in any way, that it is very fast 
and abovs all that a vsry clear program is produced, a 
program that can be conveniently and easily extended or 
edited without reference to any lists. Should you ever want 
to occupy yourself with this execution of an adventure 
program, the following realization of our space 1 should 
suffice as a stimulus. Note that it is an example that has 
nothing to do with our concept. Therefore please do not 
overwrite any of the lines in the program we have so far 
produced . 
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10 REM EXAMPLE DO NOT ENTER THESE LINES 

100 INPUT "WHAT SHALL I DO" ; ENTRYS 
BOO REM 

300 ON SP BOTO 1000,2000,3000,4000,5000,6000 

1000 PRINT CHRSC 1473 : REM ROOM 1 

1010 PRINT "I AH IN THE UIOOD! " 

1020 PRINT "I SEE LOTS OF BIS TREES" 

1040 REM 

1100 PRINT "I EAN GO SOUTH, EAST" 
1200 IF ENTRYS="S" THEN R00M=6 : G0T0100 
1210 IF ENTRY$="E" THEN R00M-2 : G0T0100 
1260 IF LENC ENTRYS ]< 3 THEN PRINT "YOU CAN'T GO 
THAT WAY" 

1300 IF ENTRYS-" I NU" OR "INVENTORY" THEN 200 

1400 IF UES-"EXA" AND □BS-"TRE" THEN PRINT"I SEE 

NOTHING SPECIAL" : G0T0100 
1410 IF UE$="TAU" AND OB$="TRE" THEN PR I NT "I 'M NOT 

THAT STRDNG" : G0TD100 
1SSS PR I NT "I DO NOT UNDERSTAND WHAT YOU 

MEAN": GOTO 100 
2000 REM R00M2 
3000 REM R0DM3 

If you have had a look at the above lines or even input them 
into your C64, you will find that a workable adventure can 
be created in a very simple way and you will perhaps ask 
yourself why we have not used this concept, seeing that it 
can be understand without lengthy comments . 

On the one hand, very involved adventures require far more 
memory, for it is not possible For us avoid listing 
identical routines several times, since, sticking to a known 
example, we should have to be able to deposit the Jar in 
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every space Csix identical program lines], not forgetting 
that we should also have to be able to take it again. In 
our adventure system all of two program lines are used, in 
contrast to these twelve. That alone should be enough to 
quickly invalidate the argument of clarity and editing 
friendliness . 

Imagine if as an extension to the adventure further Jars are 
needed to continue the plot, for this or some other reason 
we prefer to make a small wooden barrel out of the Jar. If 
at this point your adventure already had forty spaces, you 
may now make "Take barrel" out of "Take Jar" in the 
corresponding number of lines. The same applies to "Discard 
Jar", "Open Jar", etc. If on the other hand you havB stuck 
to our adventure system, you simply alter line 305 and there 
you are! 

Let us forget this method and come back to our adventure. 
Ule lBt the plot unfold in precisely defined program linBS, 
but now each block contains the treatment of one verb. 

Our driver has already established the verb and object 
numbers. Therefore we can specifically transfer these 
blocks. Thus the sensible thing to do is to assign program 
lines beginning with 5000 to all lines used in the execution 
of the command "Examine", the action "Take" accordingly 
being realized from line 6000. 

The program sequence is controlled by the adventure driver 
with the aid of the verb number in line 2200: 

2200 ON UN GOTO 5000,6000,7000,8000,9000,10000 
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With program line 5000 the block EXAMINE now begins. It is 
easy to see that it is here that the greatest amount of work 
is asked of us. 

It is not only that after EXAMINE but the message "IN THE 
HUT THERE IS AN OLD SHELF" must be output and the shelf must 
appear as a variable object. Nam, uie must also make sure 
that the hut is available at the space Just visited and, if 
necessary, must send a communication such as "I DO NOT SEE 
ANYTHING LIKE THAT HERE" to the player. 

These considerations already show the work involved in 
adventure programming. Fortunately however many different 
player inputs can be answered by one and the same program 
line. 

Thus the program part dealing with the player's examining 
actions will first check whether the abject on which further 
information is required is within the player's reach and 
accordingly in the same space or even in his possession, 
otherwise the input of the next move can be started at once: 

5000 IF OBCND <>PL AND 0BCN3 <> - 1 THEN SOTO 5300 
5300 REM OBJECT NOT PRESENT 
5304?"I KNOW THAT OBJECT": GOTO 10B0 

5330 PRINT "I DO NOT SEE ANYTHING LIKE THAT 
HERE! ": GOTO 10B0 
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3.10 THE CONDITIONS 

Apart from two conditions previously mentioned, a number of 
other prerequisites can be formulated without which it will 
not be possible to realize an adventure: 

Object is in the space 

□bject is being carried by the player 

□bject is not in the space 

Flag is set 

Flag is not set 

Player is in a specific space 

As we shall see later, this list does not claim to be 
complete. It is conceivable for example that the last 
condition may be inverted or that certain actions cannot be 
executed in a particular space, but probably in every other 
space . 

The flags that have cropped up at this point need 
explanation. These are signal switches that we want to 
realize by means of a further field, but these field 
variables must not be able to assume more than two states: 
either a flag is set, in which case the contents of the 
variables must be -1, or it is not set, which must 
correspond to a zero. These flags are used in our adventure 
to identify certain states: 

Is a door open or closed? 

Was an obstacle removed or not? 

Is a monster to put an end to the player's doings 
or may the player carry on? 
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In the practice houever the formulation of a single 
condition will not usually suffice to classify the situation 
unequivocally, so logical interconnections of several 
conditions become necessary in order to ensure that certain 
actions are not carried out haphazardly and at the wrong 
times . 

These logical operations will be AND or OR operations. In 
the case of our adventure practice this means that either 
both C AND] or only the one or the other COR 3 of two or more 
interconnections have to be fulfilled. If we cannot 
dispense with more than two conditions, bracketing will 
usually be imperative. An example will make this clear: 

Let us think about the explosive in our box. It 
is intended to be used in the case of over-hasty 
players to spoil the pleasure they derive from 
getting done fast. For reasons of fairness 
however a warning of the risk of explosion is 
perfectly appropriate, so following "Examine 
explosive" the statement "It looks very explosive" 
must be output. If the playBr then still tries to 
take the explosive, he himself is to blame for his 
end . 

If the player has actually made the above input, 
the driver will make the numbers 1 CexamineD and 9 
[explosive] available. The problem that now faces 
us is that we cannot rest content with checking a 
space, for we must not forget that the player, it 
is true, is not able to pick up the explosive and 
take it with him, but can pick up the box and take 
it with him, and if he takes the box with him, he 
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has the explosive as well with him. Let us 
therefore check whether the player meant to take 
the explosive AND at the same time whether the 
wooden box Cobject number 73 is in the space Just 
visited OR in the adventure's inventory. The 
actual object in the plot Cnumber 3D is not 
available. Therefore after line 5000, the program 
sequence is continued with line 5908. 

Therefore the execution of the command "ExaminB 
explosive" must bB formulated as follows: 

5904 IFN"9ANDC0BC73=PL0R 0BC73 — 13 THEN PRINT "IT 
LOOKS UERY EXPLOSIUE! " : GOTO 1080 
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3.11 THE ACTIONS 

The previous example has made the execution of the simple 
action, the output of a communication to the player, clear 
to us . 

Usually however this print command is only an accessory to 
other actions, such as manipulations of 0BC3, used as 
feedback to give the adventurer confirmation of the 
execution of the command. 

Commands such as TAKE, DROP, DESTROY, and OPEN aluiays mean a 
change of location for an object. Either the object is 
taken by the player along with him or goes into the 
inventory of a particular space. Perhaps it disappears 
completely from the game. Just imaginB the amazement of the 
person playing Gold Fever if the bear has obviously eaten 
the honey, but the full Jar can still be found somewhere! 

Another, frequently required action is the setting or 
resetting of the previously mentioned flags in order 
to create the prerequisites for later actions. 

We must not forget any conditional changes in location of 
the player initiated by magic or harmless actions. A 
subsequent extension to Sold Fever could make a gigantic 
maze of passages out of the bear's cave, and after "Examine 
cave" the player finds himself in the middle of the cave, 
even though he has not entered the cave by a movement in the 
direction of the appropriate cardinal point. The increased 
amount of programming work however will make our adventure 
only more realistic, for how is one supposed to explore a 
cave thoroughly without entering it? 
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As with the conditions, we can compile a list of possible 
actions in this case, but such a list cannot claim to be 
complete. It does however provide an adequate basis, and it 
is possible to write goad adventures with Just the 
conditions and actions presented. 

Output communication to the player 

Object disappears 

Object comes into the inventory 

Object reappears in the space 

Flag is set 

Flag is deleted 

Player is transferred to another space 
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3.12 PROGRAMMING THE EXECUTION OF THE COMMANDS 

Below you will find information on various special features 
that have ta be observed in the case of some particular 
commands. I shall explain only a few typical program lines. 
Please obtain the remaining lines from the listing of the 
miniversion of Gold Fever at the end of this chapter . 

3.12.1 ACTION: EXAMINE 

First it is an established fact that the result of examining 
an object is always communicated in the form of a sentence. 

Often it will be one and the same sentence CI see nothing in 
particular], for which reason wb do not output the 
communications direct to the player in such cases, but 
allocate the text at the start of the program to a variable 
and in duB course print out its contents. 

Since we have only BO characters available for a BASIC line 
and have also to formulate the conditions in thB line 
concerned, we shall sometimes not be able to avoid preparing 
a number of messages that are needed only once. 

BOO REM COMMUNICATIONS 

B01 MS$C13-"I CANNOT SEE ANYTHING IN PARTICULAR" . 

602 nSSC23-'*I AM NOT THAT STRONG". 

B03 MS$C33-"UHAT DO YOU MEAN? " 

604 MSSC43-"THE BEAR TAKES THE HONEY AND" 

B05 MSSC S3- "DISAPPEARS INTO THE DEPTHS OF THE 

CAUE". 
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Line 5000 has already been explained. By checking the value 
in 0BC3, it ensures that the actual object concerned is in 
the player's vicinity. 

IF this is so, the program line appropriate to this object 
is ascertained from the abject number N. IF all the 
conditions programmed there have been FulFilled, the rest oF 
the line is exhausted and the program then continues with 
the rest oF the screen image: 

500S IF N=l THEN PRINT MSSC13: B0T0 1080 

5003 IF N=3 THEN PRINT MSSC13: GOTO 1080 

5004 IF N=4 THEN PRINT "IN A CORNER THERE IS A 
SHELF". : OB C 8 3 -PL: GOTO 10B0 

On examining the wooden hut CN-43 the player discovers the 
shelF. This was in space 0, the storeroom, and is now 
positioned in the player's space, so in lines 1170 to 1210 
the adventure driver outputs, among other things, "a shelF". 

As in the case oF the shelF, however, it is conceivable that 
an object may turn up that is aFterwards taken by the 
player . 

Then a Formulation as in 5004 would no longer be adequate, 
as in the event of any Further examination oF the shelF the 
jar would automatically be takBn out oF the inventory and 
put back in the space. 

We can avoid this mistake only iF we First make sure that 
the jar has not yet been in the game and accordingly is 
still in the storeroom. 
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500B IF N-B AND 0BC5D-0 THEN PRINT "ON THE 
SHELF THERE IS A JAR . " : 0BC5D=PL 
:BOTO 1080 

5009 IF N=B AND 0BC53O0 THEN PRINT HSSC 
13: SOTO 10B0 

In all further exami nations of the shelf the player will not 
find anything else in particular Cline 50093 . 

A further example will show the use of the flags. WhBn the 
player has found the treasure chest, he will see that it is 
secured with an iron chain. After he has removed this 
obstacle, the chest must of course be opened before the 
valuable contents can be seen. To make these three states 
clear to the player, it would be possible to introduce 
further objects, such as a chest secured with an iron chain, 
an unsecured chest, and an open chest. This very great 
volume of programming work, which incidentally of course 
restricts the storage location available, can be avoided by 
using signal switches. It would be sensible of you to draw 
up a table during the construction of your adventure, so 
that you really do set the correct flags: 

Flag -1 



1 Chain intact Chain destroyed 

H Chest closed Chest open 

You may now ask: Why of all values we use C-13 and not 
another value? Or why not only one flag with various figures 
for every passible state? 
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The reason is we make use af the Fact that in the case of 
thB BASIC interpreter a TRUTH is always represented by a -1, 
so in the IF statements uie da not have to specify any 
comparative values .- 

IF FLC13=-1 corresponds to IF FLC13 

IF FLC13-0 corresponds to IF NOT FLC13 

Accordingly the fallowing lines apply to our example: 

5011 IFN=11ANDN0TFLC1 3 THENPRINT"IT IS 
SECURED WITH AN IRON CHAIN . " : GOTO 10B0 

5012 IF N™1 1 ANDFL C 1 3 ANDNOTFL C 2 3 THENPR I NT 
"I CAN'T SEE ANYTHING FR0H THE 
OUTS I DE . " : GOTO 1 0B0 

5013 IF N=ll ANDFL C 1 3 ANDFLC23THENPRINT" IT 
IS FULL OF SILUER COINS .": OBC 123=PLG : 
GOTO 10B0 

A further point to which we must pay special attention finds 
its Justification in the layout of our word analysis. 

The completely identical objects 1 and 2 form part of the 
equipment of the first two spaces. When the input of the 
game is checked, it will never be possible to ascertain any 
other object number than a 1, which number, in the event 
that the player is located in space 2, does not correspond 
to the facts. 

In order to be able to acknowledge input errors correctly, 
we used line 5301, which now enables us to handle these 
special cases. 
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Thus uie solve the problem "Examine trees" for space S in the 
following manner: 

5901 IF N-l AND PL=2 THEN PRINT MSSC 1 D : GOTO 10B0 
5310 I FN=1 ANDPL="5AND0B C 14 3 =5THENPR INT "I SEEM TO 
WHET HIS APPETITE.": GOTO 10B0 

To conclude the routine, we must provide a last line 
executed without any condition if none of the conditions was 
fulfilled in any of the preceding program lines. With this 
undefined game inputs are intercepted and, if no applicable 
condition is found, we prevent the lines of the other verbs 
from being exhausted and accordingly prevents the program 
from getting out of control. Even if we forget an action 
that is not necessary to the development of the adventure, a 
player will never notice this: 

5990 PRINT "I DO NOT SEE ANYTHING LIKE THAT 
HERE! " : GOTO 10B0 
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3.12.2 ACTION: TAKE 

Exactly as the player can examine only an object that is 
near him, he will not be able to take such an object unless 
it is either in the same space as the player or in his 
pocket . 

6000 IF OBCNDO PL AND 0BCN3O-1 THEN GOTO 6300 

Accordingly it would be quite simple to execute this 

command, but with a few objects we should deny the 
adventurer his wish. 

Thus we should allow for this fact that a completely full 
iron chest is presumably too heavy for only one person . 

Likewise we cannot ignore even stupid attempts on the part 
of the player such as "Take tree." 

6001 IF N-l THEN PRINT I1SSC23:G0T0 10B0 
6005 IF N-ll THEN PRINT flSS C 2 3 : GOTO 10B0 

Naturally things can get even worse, for we must of course 
set a sufficient number of traps for the player, so that 
victory is not made too easy for him. Thus according to our 
script touching the explosive should lead to an explosion 
and accordingly end the game. The same applies if the 
player tries to seize the nuggets without first offering the 
bear a tidbit. It would be equally fatal for the player to 
attempt to take the bear.- 
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B015 IF N=l AND PL=5 THEN MSSC03-"THE BEAR HAS 

KILLED ME . " : BOTQ 4500 
B01B IF N-17 AND NOT PLC 33 THEN MSSC03="THE BEAR IS 

ATTACKING flE . " : GOTO 4500 
G900 IF N=3 THEN MSSC03="IT EXPLODED WHEN I TOUCHED 
IT! ":GOTO 4500 

Nate: In line 4500 a routine begins that is called up when 
the game is lost. flSSCOD is provided is this routine For an 
explanatory message. 

Flag 3 is set uihBn thB bear is in possession of the honey . 

If there is nothing to stop the player enriching himself 
with any of the objects used in our adventure, we have only 
to allocate the new place number, a -1, to the object: 

6010 IF N-5 THEN 0BC53 — 1 : PRINT"0 . K . " : GOTO 10B0 
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3.12.3 ACTION: DISCARD 

Some time or other the player will want to get rid of these 
objects, either because we as programmers have limited his 
carrying capacity or because he wants to use them in some 
way or other. 

In practice the "Discard" routine hardly raises any 
problems. Over and above that it is convincing in its 
shortness, For the bnly prerequisite is that the object to 
be discarded is in the player's possession, which is tested 
in line 7005 in respect of all objects: 

7005 IF 0BCN3O-1 THEN PR I NT "BUT I DON'T HAUE 
ANYTHING LIKE THAT . " : BOTO 1080 
7900 0BCN3-PL:PRINT"0.K.*':G0T0 1080 

Mistakes made by thB player are immediately recognized and 
accordingly acknowledged . If the object was in the 
inventory, a new location is allocated to it with an 
alteration of the contents of 0BC3. 

In principal these two lines are enough, but it may be 
necessary to carry out further reactions in addition to the 
position change. Thus in Gold-Fever we arranged for the 
bear to take the jar and disappear with it into the depths 
of the cave. Naturally this action must be carried out only 
if the player happens to be in space 5. At all other spaces 
the operation is likewise executed by line 7900. 

70B0 IFN-5ANDPL-5 THEN OBC53=0: FLC33 — 1: 
PRINTUSSC43 : PR I NTTI1SS C 5 3 :0BC 143-0: GOTO 10B0 



76 



ABACUS Software 



ADUENTURE BAMEUR ITER'S HANDBOOK 



3.12.4 ACTION: OPEN 

Right at the beginning of this program part there is thB now 
a known test for avoiding technical errors. Again it is 
necessary to check both the space and the inventory . 

B000 IF 0BCN3OPL AND DBCN3<>-1 THEN PRINT 
"THERE IS NDTHINB LIKE THAT HERE.": SOTO 10B0 

The action itself will mostly consist of setting a flag and 
outputting a communication: 

B0S5 IF N-ll AND FLC13 THEN PRINT"O.K. -THE LID 
OPENS BACKWARDS. "FLC23 — 1 : BOTO 10B0 

We must not forget actions that are unimportant, but 
possible in the situation. Our Jar may again serve as an 
example. A logically thinking adventurer will first want to 
open it before any closer examination and would undoubtedly 
be suprised if he failed to so simply because it was 
unimportant to the game. 

B010 IF N=5 THEN PR I NT "O.K. ":BOTO 10B0 

The end of this block ensures that not only wrong technical 
inputs but also such impossible instructions as "Open honey" 
arB recognized . 

8333 PRINT" I DO NOT UNDERSTAND WHAT YOU MEAN . " : BOTO 
10B0 
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3.13 SUHMARY 

I hope that the explanations given in respect to what are 
probably the most Frequent types of action will havB made 
the execution of the actual gamB programming clear to you. 
To summarize, it can be said that in principle the 
individual actions are covered by two program lines. 

Thus at the beginning of a block a test is made to see 
whether execution of the action is possible from the 
technical point of view. Finally steps are take to ensure 
that the program is correctly continued even iF there is an 
error . 

Recognition oF the prerequisites For the execution oF a 
command, just as the action itselF, is usually something 
that is very easily programmed and something that in the 
case oF our adventure system has been standardized. The 
Following list is intended to help you realism your First 
adventure: 



CONDITION 



IN THE BASIC PRDGRAM 



Object is in the space 

Object is being carried by the player 

Object is not in the space 

Flag is set 

Flag is not set 

Player is in a speciFic space 



OB [object] -PL 
OBCobjectD— 1 
OB C object 3 <> PL 
FLCx3=-l 



FLCx]=0 



PL=space 
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ACTIONS 




IN THE BASIC PROGRAM 


Output communication 


to the player 


PRINT"" or MSS 


Object disappears 




OB C object 3=0 


Object comes into the 


inventory 


OB C abject 3 — 1 


CONDITION 




IN THE BASIC PROGRAM 



Object reappears in the space 0BCobject3=PL 
Flag is set FLCx3 — 1 

Flag is deleted FLCx3-0 

Player is transferred to another space PL"=space 



EXPLANATION OF THE MORE IMPORTANT UARIABLES: 



NS 


Number of spaces in an adventure 


AO 


Number of objects 


AU 


Number af verbs 


PA 


Ways out from a space 


I 


Counter in loops 


N 


Number of objects used 


OB 


Location of an object 


DI 


Counter For directions 


PL 


Player's location space 


UN 


Number of verb used 


U)L 


Significant word length 


ENS 


Player's input 


EOS 


Subject of player's input 


EUS 


Uerb of player's input 


MSS 


Communication to be output 


□B$ 


Description of an object 


RNS 


Call name of an object 


UES 


Uerb 
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3.14 THE LAST STEPS 

Before our adventure corresponds to the ideas developed in 
chapter E, we must think about three further program parts. 

Thus, if a game is to be played satisfactorily, it is 
absolutely essential to provide the player with the 
possibility of making a quick inventory. 

It is quite possible to execute this routine in the same way 
as the handling of the verbs. As what is involved here is a 
fundamental function of the adventures, we shall supplement 
our driver in some suitable manner. 

3.14.1 I NUENTORY 

Like the routines to be prepared later for storing and 
loading the state of the game, and inventory belongs to the 
group of what are called one-word commands. Ule have left 
sufficient room for this program part between program lines 
1470 Cend of the movement routine] and S000 Canalysis of the 
inputD . 

To avoid keeping our driver occupied for an unnecessarily 
long time comparing each of the player's moves with the 
commands in this special group, we first decide whether what 
is involved is one of these special instructions or a normal 
input . 

The usual input made by a player will have a length of at 
least seven letters. Therefore, if the length of the 
input is less, let us assume that it is a one-word command: 
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1490 IF LEN C ENTRYS 3 > 6 THEN GOTO SOOO 

IF the plager's input is not a normal combination oF a verb 
and object, all thB lines in which the handling oF a one- 
word command begins will run through in turn until agreement 
oF the First three letters is established. 

In practice the execution oF the inventory consists in 
running through a simple loop that prints out on the screen 
all the objects in the adventure that are marked -1: 

1139 REM START OF INVENTORY 

1500 IF LEFTS C ENTRYS, 33<> "INU" THEN 60T0 2000 
1510 PRINT"I AM CARRYING THE FOLLOWING WITH ME:" 
1520 FOR 1-1 TO AO 

15S0 IF 0BCI3 — 1 THEN PRINT 0BSCI3 
1540 NEXT I 
1550 GOTO 10B0 

1560 REM END OF INVENTORY 



3.14.2 THE TITLES 

Seen from the purely technical aspect, we have completed our 
program with these lines. All required Functions are 
available, and nothing more stands in the way oF a game. 
But how long is the adventurer to wander about in our world? 
When has he reached his goal? 

So Far as the action is concerned, the miniversion oF Gold 
Fever ends when both the nuggets and the silver coins are in 
the player's possession. 
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A single BASIC line is all that is necessary in this case to 
prevent all further inputs and to transfer program control 
ta a part that informs the player in some appropriate way of 
his success and ends the game. 

134:0 IF 0BC1E3 — 1 AND 0BC17D—1 THEN SOTO 4B00 

Typical of adventure games however is an entirely different, 
less glorious end. Since players of our program will of 
necessity normally end their game somewhat earlier, we 
program a further end solution from line 1500. 

In the execution of the game-ending actions we hod of course 
already prepared a suitable message, so that the player at 
least does not have to be left in any doubt as to the cause 
of his failure. 



1500 PRINT CHRSC147]:REM PLAYER DEAD 

4600 PRINT "THIS IS THE END! " : PRINT MSSC03 
4610 PRINT"I AM DEAD !":PRINT 
4650 INPUT "SHALL I TRY AGAIN"; AS 
4630 IF LEFTS C AS , 1 ] ■* " Y " THEN RUN 
4640 PRINT CHRSC 1473: END 

Here the inclusion of the individual message in msSCOD 
allows us ta use this for every situation and every 
adventurB. If at all necessary, alterations will not 
involve much work. Far this reason the above lines, Just 
like the news of victory from 4B00, may be regarded as 
further additions to our adventure driver. 
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Let us also remember that loading adventures and playing 
them through in a Few hours is not all typical of adventures 
and let us finally program a normal program end. 

Even though such software is on the market, it does not say 
much for the user friendliness of a program if the program 
can be left Just by pressing the stop or restore keys. 

Therefore let us insert a further one-word command into our 
system : 

1500 IF LEFTSCENTRYS,33<>"INU" THEN GOTO 1350 
1950 IF LEFTS C ENTRYS , 3 3 <> "END " THEN GOTO 2000 
I960 PRINT "THE AUTHOR WISHES YOU BETTER LUCK NEXT 
TIME! " : END 

Logically these were the last lines of our adventure; we 
have realized all conceivable versions of the end of the 
game . But how on the other hand does the beginning of our 
work look? 

If we start our program Just as it is, its first action 
consists in preparing the work variables, a Job that raises 
the thought of a program crash, especially in the case of 
major adventures. Then one finds oneself in the middle of 
the program and as inexperienced newcomer to adventure games 
perhaps sees the purpose of the game as arranging a 
sightseeing tour through an electronically simulated world. 

As first impressions are important let us take the trouble 
of providing our program with one or, better still, several 
titles. 
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It will be the Job of the first title to give some 
information, in a concise but attractive form, to indicate 
the title and nature of the program, and to provide some 
information on the author. 

Ule bring the next picture onto the screen before thB 
variables are initialized. During this period of time this 
title can give some information on the task allotted to thB 
player and introduce him into action. 

If of course establishing the task set is part of the idea 
of the game, this screen will be missing and the program 
title will be followed by an explanation of the idea of the 
game, which otherwise must be implemented as a third 
screen . 

How was it when you received your first adventure and got it 
into the memory? Did you know the purpose of these programs 
or did you sit in front of your computer not knowing what to 
do?. 

After all let us not forget that there will always be 
beginners who are happy if thB can load a program without 
error messages after they have switched on the computer. 



B4 



ABACUS Software 



SCREEN I 

Welcome to the miniversion of GOLD FEUER 



Some days ago, while looking for 
□ fortune in the new world, you met a 
critically ill old man to whom, you gave 
help in his last hours. dut of 

gratitude he told you about his gold mine 
and the rest of his wealth hidden there, 
riany dangers faced you on the way there; 
soon you will have reached your goal and 
it will be seen whether the old man was 
telling the truth or talking in a 
delirium . 



Do you want advice on your further 
action? 
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SCREEN II 

CB1 - Adventure System, Uersion i.O 
Ccl 13B4 by Ulalkowiak 



Imagine a robot that you can control with 
a sequence of commands. I am this robot 
and on behalf shall expose myself to the 
dangers of the boldest of adventures. 

To enable you to make me act sensibly, I 
shall accurately describe the situation 
in which I happen to find myself at any 
given time. Then you tell me in two 
words such as, for example, EXAMINE DOOR, 
TAKE KNIFE, what am I to da . 

Moreover I understand the commands 
INUentory SAUE LOAD 
UOCabularies HELP END 
SCDre and INStructions 



C Press key] 

In these two examples we have shown you what was meant. In 
your own adventure games program lines CIO - 1003 and C700 - 
S003 are available for this task. 

You should incorporate the general explanations as a 
subroutine, being concluded by RETURN. This permits further 
extension of the adventure driver and enables the player to 
recall the rules without interrupting the game. 



BE 



ABACUS Software 



ADUENTURE GAMEUIR I TER ' S HANDBOOK 



3.15 INFORMATION ON THE PROGRAM LISTING 

The next pages contain the complete listing of GDLDFEUER 
mini version 1.0. It should however be noted that it is 
not a question of additional program lines; all lines 
explained in the previous text are also listed. 

You will see that with the techniques so far presented it is 
possible to develop demanding adventures that do not need to 
shun comparison with corresponding purchasable software. 

It is now up to gou whether gou first put the book aside and 
develop an adventure game of gour own or prefer to learn 
about other features that can make a perfect adventure from 
a good one . 

Some of the program lines are longer than BO characters so 
it will be necessarg to use the abbreviations far the BASIC 
kegwords to enter these lines C?=PRINT, N-shif t-E=NEXT , 
etc. 3 . 

The programs in this book were listed using a TURBOPRINT/GT 
printer interface in the SPECIAL LISTING MODE . Bg using 
this special mode it should be easier to enter the programs. 
Please refer to Appendix A for a complete list of the 
special codes used to list the programs. 
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1 REM — MINI -GOLD FEUER, VERSION 1.0 — 

2 REM CCD 13B4 BY UALKOUIAK 

10 REM TITLE PIC 

TORE 

1 1 P0KE532B1 ,11: P0KE532B0 , 12 : PR I NTCHRS C 1 
423 

12 PRINT"CCLR>" 

13 PRINT"CD15> CCM+ 

>ccn+><:cti+>ccn+3{:cn+>ccn+><:cri+>{:cn+3{:cn+ 
>ccn+jccn+>ccn+>ccn+jccn+Jccn+> 

14 PRINT"CYELJ CSHOJCCMYJ CSHO>CSHP> C 
CMG3 CSHOKSHMJ CBLlOCSHOiXCMY} CSHO>CC 

mo ccriGDCcnnj csho3cchy> cshojcshpjcciis 
JCcn+>ccti+3ccri+jccn+>ccn+>ccM+3ccn+>ccn+ 
y 

15 PRINT"CYEL> CCMH>CCf1PJ CCPWOCCrili:} C 
CMG> CCnH>CCt1M> CBLK>CSHLJCCMP> CSHL3CC 

mp> ccnG>ccnn> cshljccmp) cshljcshejcciis 
> c cmm k dink din > ccn+3ccn+jccn+> 

IB PRINT"CYEL> CSHLJCSHOJ CSHL>CSHS3 C 
SHLiKCflP} CSHLJCSHN} CBLJOCCMG> CSHLJCC 

np> cshmjcshn> csHL>ccnp> ccroocsHroccns 
y c cnruc din > coin > ccn+3ccn+>ccn+> 

17 PRINT"CBLJO {SHU}CSH»:XSH»:KSH*:KSH« 
>CSH*>CSH*3CSH*>CSH»3CSH«5CSH»3CSH*>CSH» 

>csh»>csh*3{sh«jcshi3 ccns* CCn+>CCM+>C 
cn+> cctin>ccnN5ccnN3 ccn+>ccn+jccn+> 

IB PRINT"CBLK> tSH-> CCMBJCC3 1SB4 
CBLK>CSH-3CCn5> CCt1+JCCn+3CCH+> c 

cnri3ccriN>ccnN5 ccm+jccm+>ccm+j 

13 PRINT"CBL10 CSH-> CCMBJBY 
CBLK3CSH-JCCM5!) CCn+JCCI1+>CCn+> C 

cnnjccnN3ccnN> ccn+>ccn+3<:cn+> 

20 PRINT"CBLIO CSH-3CCMB>J0ERG UALKOUIA 
KCBLK>CSH->CCn5> CCM+JCCn+JCCfl+J C 

cnn>csH@>csHN> ccn+^ccn+jccn+5 

21 PRINT"CBLJO CSHJJCSH»>CSH»3CSH*J<:SH* 
>CSH«>CSH«>CSH«>CSH*JCSH»>CSH»3{:SH*JCSH« 
3CSH»>CSH«>CSH»>CSHKJ CCM5> CCM+ JCCM+5C 
Cn+> CSH > CSHN>CSH*>CSH*JCCM+>CCri+>C 

cn+3 

22 PRINT" CCM2J CSHU}CSH*KSH*:KSH* 
3CSH»JCSH*3CSH*>CSH»3CSH«>CSH»JCSH*JCSH« 
3CSH«><:SH*>CSH*>CSH*J{:SHI5fCn53CCn+3 

cshnj ccn+>ccri+>ccn+3 

23 PRINT" CCM23 CSHLD 

CSHI> CCM5>CCM+J CSHNJ CCPHOCCM+X 
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Ct1+> 

24 PRINT" CCM2> CSHU> C 
SHI> CSHNJCCM5>CCM+5 CSHN> CCM+>CC 

n+>ccn+> 

25 PRINT" CCT12} CSHU>CSH»5CSH*>CSH*3CS 
H»JCSH»JCSH*>CSH*JCSH*>CSH*>CSH*JCSH«JCS 
H»>CSH*JCSH*J<:SH«JCSHI5 CSHN} CCMSJCCM+J 

tSHN>CSH*}CSH*><SH»:>CSH»>CSH»J<SHN3CCI1 
+5CCM+JCCM+> 

26 PRINT" CCM2> CSHOJ CS 
HP3CSHN5 CCn5>CCn+> CSHNJ CSHN> CCH 

+>ccn+>ccn+> 

27 PRINT" CCM2J CSH03CCnY>CCnY>CCnY>CC 
MY5CCMY3CCMY5CCnY>CRUS>CYELJ C0FFJCCn2>C 
CMY>CCnY3CC(1Y>CCnY3CCMY3CCHYJCCnY3CSHP3 

C01H>CCI153 CSHNJ CSHNJ 
2B PRINT"CCM2J CCI1HJ CRUSJCYELJ 
CSHZJC0FFJCCM2J CCMMJ CCMHJ 

23 PRINT"CCn2> COIHJ CC 

nti> cshnj 

30 PRINT*'CCn23 CCMH5 CC 

nn> cshn> 

31 PRINT"CCM2J csHL>ccnp>ccrip}ccMP}cc 
tip>ccnp>ccnpjccMP>ccnp5ccnP5CCMP>ccrip><:c 
npjccriP3Ccnp>ccnp>csHS>csHN> 

32 PRINT-C DNJ C CUB} FROM THE CUI 
HT 3 ABACUS CCMB3B00KC DN>" 

33 PRINT" ' ADUENTURE SAMEWR ITER'S HAN 
□BOOK ' " 

S3 FOR 1-1 TO 10000: NEXT 

100 REM CHAR 

ACTERISTICS 

101 : 
110 NS-6 
120 AO-IB 
130 AU-6 

140 UIL-3 : REM WORD LENGTH 
150 PL-1 

ISO Did SPSCNSD.PACNS.BD.OBSCAQD.RNSCAO] 

,0BCA03 

19S : 

200 REM UERBS 

201 DATA EXAMINE 

202 DATA TAKE 

203 DATA DROP 

204 DATA OPEN 

205 DATA USE 

206 DATA BREAK 
209 : 
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300 REM 

301 DATA "LOTS OF BIB TREES" , "TRE",1 

302 DATA "LOTS OF BIG TREES" , "TRE",2 

303 DATA "SEVERAL PIECES OF ROCK", "ROC", 
2 

304 DATA "AN OLD UIOODEN HUT" , "HUT" , 3 

305 DATA "A DIRTY JAR" , "JAR" , O 

306 DATA "HONEY", "HON", 

307 DATA "A UIOODEN BOX", "BOX" ,3 

308 DATA "A SHELF" , "SHE" , 

30S DATA "SOME EXPLOSIVES" , "EXP" , 

310 DATA "A HOLE IN THE GROUND " , "HOL " , 

311 DATA "A RUSTY IRON CHEST" , "CHE" , 

312 DATA "*SILUER COINS*" , "SIL" , 

313 DATA "A CAUE" , "CAU" , 5 

314 DATA "A FEROCIOUS LOOKING BEAR" , "BEA 
",0 

315 DATA "LDTS OF SMALL BUSHES" , "BUS" , 4 

316 DATA "SEUERAL IRON BARS" , "BAR" , 6 

317 DATA "*NUGGETS*" , "NUG" , 5 

318 DATA "AN IRON BAR", BAR, 
433 : 

500 REM SPACE DESCRIPTIONS 

501 DATA "IN THE WOODS ",0,0,0,2,0,0 

502 DATA "IN THE WOODS" ,0,0, 1,3,0,0 

503 DATA "IN THE WOODS BY A ROCKY SLOPE" 
,0,4,2,0,0,0 

504 DATA "IN A CLEARING IN THE WOODS" , 3, 
0,5,0,0,0 

505 DATA "IN A CLEARING BY A MOUNTAIN SL 
OPE", 0,0, 6, 4, 0,0 

506 DATA" AT THE ENTRANCE TUNNEL TO AN 
LD MINE", 0,0, 0,5, 0,0 

5SS : 

600 REM INFORMATION 

601 MSSC13-"I CANNOT SEE ANYTHING IN PAR 
TICULAR" 

602 MSSC23-"I AM NOT THAT STRONG" 

603 MS$C33""WHAT DO YOU MEAN" 

604 MS$C43-"THE BEAR TAKES THE HONEY AND 

If 

605 MSSC53- "DISAPPEARS INTO THE DEPTHS 
F THE CAUE" 

6S8 : 

633 REM TITLE PAGE 

700 PR I NT "CCLR3 " : P0KE53280 , : P0KE53281 , 
:PRINT"CWHT>";CHRSC143 

710 PR I NT "WELCOME TO THE MINI UERSION OF 
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7 1 5 PR I NTSPC C 1 4 3 " C SHG 3C 5H0 3 C SHL 3 C SHD3 C SH 
R3CSHU3CSHS3CSHH3 

720 PRINT" 



725 PR I NT "SOME DAYS ABO, WHILE LOOKING F 
OR A" 

730 PR I NT "FORTUNE IN A NEW WORLD, YOU HE 

T A" 

735 PRINT "CRITICALLY ILL OLD MAN TO WHOM 
YOU GAUE" 

710 PR I NT "HELP IN HIS LAST HOURS. OUT OF 
GRATITUDE" 

745 PR I NT "HE TOLD YOU OF HIS GOLD MINE A 
ND THE" 

750 PR I NT "REST OF HIS WEALTH HIDDEN THER 
E. MANY " 

755 PR I NT " DANGERS FACED YOU ON THE WAY T 
HERE, SOON" 

760 PR I NT "YOU WILL HAUE REACHED YOUR GOA 
L AND IT" 

765 PR I NT "WILL BE SEEN WHETHER THE OLD II 
AN WAS" 

770 PR I NT "SPEAKING THE TRUTH OR TALKING 
IN A " 

775 PRINT"DELIRIUM." 
7B0 : 
785 : 

730 PRINT" 



733 

810 FDR I-1T0AU 

815 READ UERB$CI3:UERB$CI3-LEFT$CUERBSCI 
3,33 

820 NEXT I 

830 FOR OB-1 TO AO 

B35 READ 0BSC0B3 , RNSC0B3 , 0BC0B3 

840 NEXT 

845 FOR SPACE - 1 TO NS 

850 READ SPACES C SPACE 3: 

855 FOR DI-1 TO 6: REM DIRECTIONS 

860 READ PACSP, DI 3 

865 NEXT DI 

870 NEXT SPACE 

875 : 

880 PR I NT "DO YOU WANT ADUICE ON WHAT TO 
DO NEXT"; 
BBS INPUTENS 

890 IFEN$-"Y"THENS0SUB900 
B95 B0T01000 
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B33 : 

900 REM INSTRUCTIONS 

910 PRINT"CCLR}";CHR$C143 

920 PRINT'*C-B4 ADUENTURE SYSTEM UERSION 

1.0" 

930 PRINT" CCD 19B4 BY WALKOWIAK" 

940 PRINT" 



350 PR I NT "IMAGINE A ROBOT THAT YOU CAN C 
ONTROL" 

351 PR I NT "WITH LOTS OF COMMANDS. I AM TH 
IS ROBOT" 

352 PR I NT "AND ON YOUR BEHALF SHALL EXPOS 
E MYSELF" 

353 PR I NT "TO THE DANSERS OF THE BOLDEST 
OF ADUENTURES . " 

S54 PR I NT "TO ENABLE YOU TO MAKE ME ACT S 
ENSIBLY, " 

955 PR I NT "I SHALL ACCURATELY DESCRIBE TH 
E" 

356 PR I NT "SITUATION IN WHICH I HAPPEN TO 
FIND" 

357 PR I NT "MYSELF AT ANY GIUEN TIME. WHEN 
YOU TELL" 

35B PR I NT "ME IN TWO WORDS SUCH AS, TAKE 
BAR" 

359 PR I NT "OR EXAMINE BOX" 

960 : 

961 PR I NT "I UNDERSTAND THE COMMANDS:" 

962 PR I NT " I NUENTORY AND INSTRUCTIONS" 
375 PRINT" 



9B0 PR I NT "C DN5C DNJ "SPCC 11 3 "PRESS A KEY 

» 

3B5 6ETENS: IFEN$-""THEN3B5 

990 PR I NT " CCLR3 " : PR I NTCHRS C 142 3 : RETURN 

995 : 

999 REM 

1000 PRINT"CCLR3" : PRINTCHRSC1423 
1010 BLANKS-" 

W 

1020 DATA NDRTH, SOUTH, WEST, EAST, UP, 
DOWN 

1030 FOR DIR-1 TO 6 
1040 READ DIRSC0IR3 
1050 NEXT DIR 

1 070 PR I NT " C CLR 3 " : P0KE532B0 , : P0KE532B 1 , 

OrPRINT" " 

10B0 PRINT"CBLUJ" 
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1030 P0KE21 1 , : P0KE214 , : SYS5B73S 
1100 FOR LINE-1T010 
1110 PRINTBLANKS 
11S0 NEXT LINE 

1 1 30 PDKE2 14,0: P0KE2 11,0: SYS58732 

1140 PRINT"I AM "; 

1150 PRINT SPACESSC PLAYER 3 

1160 PRINT" I SEE '*; 

1170 FOR 1-1 TO AD 

1180 IF OBCIJOPLAYER THEN 1210 

1130 IF POSC03+LENCOBSCI3 3+2<-33 THENPRI 

NT0BSCI3;", ";:G0T01210 

1200 IF POSC03+LENCOB$CI3 3+2> 33 THENPRI 
NT: SOTO 1130 
1210 NEXT I 

1220 PRINTCHR$C1573;CHR$C1573; "." 

1230 PRINTBLANKS 

1240 PR I NT" I MAY PROCEED "; 

1250 FOR DIR-1 TD 6 

1260 IF PACPL.DI3-OTHEN1310 

1270 IF P0SCO3-14 THEN PRINT DIRSCDIR3 ; : 

S0T01310 

12B0 IF POSC03+LENCDISCDIR3 3<37 THEN FRI 

NT", ";DIRSCDIR3 ; :60T01310 

1230 IF P0SCO3+LENCDI$COIR3 3>-37 THEN PR 

INT", ":PRINT DIRSCDIR3 ; : 60T01310 

1300 IF POSC03<16 AND POSC03>2 THEN PRIN 

T", ";0IRSCDIR3; :S0T01310 

1310 NEXT DIR 

1320 PRINT"." 

1330 PRINT" 



1340 IF OBC123 — 1 AND DBC17D— 1 THEN SOT 
4B00 

1330 P0KE21 1 , : P0KE214 , 24 : SYS58732 : PRINT 
"CUIHT3"; : INPUT"U)HAT SHALL I DO";EN$:PRIN 
T"CBLU3" 

1400 IF LENCEN$3>2 THEN 1500 

1410 IF ENS-"N" AND PASSA6ECPLA, 13<>0 TH 

EN PLA-PASSA6E C PLA , 1 3 : PR I NT "0 . K . " : S0T010 

BO 

1420 IF ENS-"S" AND PASSABECPLA , 23<>0 TH 
EN PLA-PASSABECPLA, 23 : PRINT"0 . K . " : S0T010 
BO 

1430 IF EN$-"UI" AND PASSABECPLA , 33<>0 TH 
EN PLA-PASSABE C PLA , 3 3 : PR I NT "0 . K . " : B0T010 
BO 

1440 IF ENS-"E" AND PASSABECPLA, 4 3<>0 TH 
EN PLA-PASSAGE C PLA , 4 3 : PR I NT "0 . K . " : BDT010 
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80 

1450 IF ENS-"U" AND PASSAGE C PL A , 5 3 <> O TH 
EN PLA-PASSAGECPLA, 53 : PRINT"0 .X . " : B0T010 
80 

1460 IF EN$-"D" AND PASSAGE C PL A, 63<>0 TH 
EN PLA-PASSAGECPLA, ED :PRINT"O.K. " : G0TQ10 
80 

1470 IF LEN C ENTRYS 3 < 3THEN PRINT"YOU 

CAN'T GO THAT WAY" : G0T01080 

14S0 IF LEN C ENTRYS 3 > 6 THEN GOTO 2000 

1498 : 

1499 REM START OF INVENTORY 

1500 IF LEFTS C ENTR Y$ , 3 3 <> " I NU " THEN GOTO 
1900 

1510 PRINT" I AM CARRYING THE FOLLOWING 
WITH HE: " 

1520 FOR 1-1 TO AO 

1530 IF 0BCI3— 1THEN PRINT 0BSCI3 

1540 NEXT I 

1550 GOTO 1080 

1550 REM END OF INVENTORY 

15G1 : 

1899 REM INSTRUCTIONS 

1900 IF LEFT$CEN$,33O"INS"THEN1950 
1910 G0SUB900 

1920 G0T01080 

1950 I FLEFTS C ENS , 33<> "END "THEN2000 
I960 PRINT"CCLR3THE AUTHOR WISHES YOU (10 
RE SUCCESS NEXT TIME" : END 
1S90 : 

2000 LN-LENC ENTRYS 3 

2010 FOR EL-1T0LN 

2020 TESTS-M I DS C ENTRYS , EL , 1 3 

2030 IF TESTSO " "THEN NEXT EL 

2040 EU$=LEFTSC ENTRYS, 33 

2050 RL-LN-EL 

2060 IF RL<0 THEN 2090 

2070 EOS=R I GHTS C ENTRYS , RL 3 

2080 E0$=LEFT$CE0S,WL3 

2090 FOR UN-1 TO AU 

2100 IF EUS-UERBS C UN 3 THEN 2130 

2110 NEXT UN 

2120 PRINT" I DO NOT UNDERSTAND THAT UERB 

! " : G0T010B0 

2130 FOR N-l TO AO 

2140 IF E0S-RNSCN3 THEN 2200 

2150 NEXT N 

2160 PR I NT "I DO NOT KNOW THIS OBJECT! ":G 
0T010B0 
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2169 : 

2170 REH 

2200 ON UN BOTO 5000 , BOOO , 7000 , BOOO , SOOO 
, 10000 

2201 : 
449B : 

4499 : 

4500 PR I NTCHRS C 1 47 3 : REM PLAYER DEAD 
4600 PRINT"THIS IS THE END! " : PRINTMSSC03 
4B10 PRINT-C DN3C DN> I AH DEAD": PRINT 
4B20 INPUT "SHALL I TRY ABAIN" j AS 

4630 IF LEFTS C AS ,1 3- "Y "THEN RUN 

4640 PRINT"CHR$C1473:END 

4641 : 
4799 : 

4B00 PRINT"CCLR>" 
4B10 PR I NT "WELL DONE" 
4B20 PRINT 

4B30 PRINT"YOU SOLUED THE ADUENTURE " 
4B40 PRINT 
4B99 END 
499B : 

4999 REM 

5000 IF 0BCN3OPL AND 0BCN3O-1 THEN BOT 

5900 

5002 IF N-l THEN PRINT MSSC 1 3 : B0TD10B0 

5003 IF N-3 THEN PRINT MSSC 1 3 : B0T010B0 

5004 IF N-4 THENPRINT"IN A CORNER THERE 
IS A SHELF . " : 0BCB3~PL: EOT01090 

5005 I FN-5THENPR I NT "THE JAR IS FULL OF H 
ONEY . " : B0T010B0 

5006 I FN-BTHENPR I NTMSS C 1 3 : B0T010B0 

5007 IFN-7ANDOBCS3-OTHENPRINT"IN THE BOX 
IS SOME EXPL0SIUE.":S0T010B0 

5008 IF N-B AND OBC53-0 THEN PRINT"0N TH 
E SHELF THERE IS A JAR" : OBC53-PL : G0TD10B 


5009 IF N-B AND 0BC53O0 THENPR I NTMSS C 1 3 
: B0T010B0 

5010 I FN~ 10THENPR I NT " I N THE HOLE IS AN I 
RON CHEST" :OBC 11 3-PL : B0T010B0 

5011 IF N~l 1 ANDNOTFL C 1 3 THENPR I NT " I T IS S 
ECURED WITH AN IRON CHA I B " : BOTO 1 080 

5012 I FN- 11ANDFL C 1 3 ANDNOTFL C 2 3 THENPR I NT " 

1 CAN'T SEE ANYTHINB FROM THE OUTSIDE" :B 
0T010B0 

5013 IFN-11ANDFLC13ANDFLC23THENPRINT"IT 
IS FULL OF SILUER COINS" : OB C 12 3 -PL : BOTO 
1080 
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5014 I FN" 1 STHENPR I NT " TH ATS JUST WHAT I'll 
LOOKING FOR! ":BOTO 1080 

5015 IFN=13THENPRINT"I 'UE WOKE A BEAR UP 
'* : OBC 143-PL : B0T010B0 

5017 I FN-1 5THENPR I NT "THERES A HOLE IN GR 
□UND":0BC103-PL:S0T010B0 

5018 I FN=16THENPR I NT "THEY LOOK UERY STRO 
NG":G0T01080 

501S IFN-17THENPRINT"THIS IS REAL GOLD ! 
"G0T01080 

5300 REM OBJECT NOT PRESENT 

5S01 IF N-l AND PL-2 THEN PRINT"MSSC1 3 : G 

0T01080 

5S0S IFN-6AND0BC53 — 1THEN PRINT"IT IS SW 
EET AND G00D":G0T010B0 

5903 IFN-6AND0BC53<>-1THENPRINT"I HAUEN ' 
T SEEN ANY HONEY" : G0T010B0 

5904 IFN-9AND0BC73-PL0R0BC73— 1 THEN PRI 
NT" IT LOOKS UERY EXPLOSIUEI " : G0T010B0 

5905 I FM-9THENPR I NT "THE EXPLOSIUE LOOKS 
DANGEROUS ! " : B0T010B0 

5910 IF N-1ANDPL-5AND0BC143-5THENPRINT"I 

SEEM TO WHET HI 5 APPETITE !": GOTO 1080 
5990 PR I NT "I DO NOT SEE ANYTHING LIKE TH 
AT HERE! ":60T010B0 

BOOO IF 0BCN3OPLAND 0BCN3O-1 THEN BOTO 
B900 

B001 IF N-l THEN PR I NTtlSS C 5 3 : G0TD10B0 

6002 IFN-3THENPRINTI1S$C23 : B0T010B0 

6003 I FN-4THENPR I NTHSS C 3 3 : B0T01 080 

6004 I FN-BTHENPR I NTMSS C 2 3 : B0T010B0 

6005 IF N-ll THEN PRINTMSSCS3 : BOT01080 

6006 IFN-10THENPRINTMSSC33 : G0T01080 
B007 IFN-13THENPRINTMSSC33 :S0T010B0 
600B I FN-15THENPR I NTMSS CE 3 : G0T01080 

6010 IF N-5 THEN OBC53 — 1 : PRINT"0 . K . " : BO 
T010B0 

6011 IFN-6THENOBC53 — 1 : PRINT"OK" : B0T010B 


6012 IFN-7THENOBC73 — 1 : PRINT"OK" : B0T010B 


6014 I FN-12THENPR I NT "OK " : OBC 123— 1 : S0T01 
OBO 

B015 IF N-1ANDPL-5THEN f1SSC03-"THE BEAR 
HAS KILLED HE . " : G0T04500 

6016 I FN-16THENPR I NT "OK " : OBC 1B3 — 1 : G0TQ1 
OBO 

B017 I FN" 3 1 7 ANDFL C 3 3 THENPR I NT "OK " : OBC173- 
-1: BOTO 1080 
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601B IF N-17ANDN0TPL C 3 3THEN MS$C03~"THE 

BEAR IS ATTACKING ME . " : G0T04500 

6900 IF N-9 THEN MS$C03-"IT EXPLODED U1HE 

N I TOUCHED IT.":B0T04S00 

7000 REM 

7005 IF 0BCN3O-1 THEN PR I NT "BUT I DON'T 

HAUE ANYTHING LIKE THAT . '* : GOTO 10B0 
7010 I FN-6ANDPL-5THEN0B C S 3 -0 : FL C 3 3 — 1 : PR 
INTMSSC43 : PRINTMSSC53 : OBC143-0: GOTO 
70H0 I FN-5ANDPL-5THEN0B C 5 3 =0 : FL C 3 3 — 1:PR 
I NTMSS C 4 3 : PR I NTMSS C 5 3 : OB C 1 4 3 =0 : GOTO 10B0 
7900 OB C N 3 -PL : PR I NT "0 . K . " : G0T01 OBO 
BOOO IF 0BCN3OPL AND 0BCN3O-1 THEN PRI 
NT "THERE IS NOTHING LIKE THAT HERE.": GOT 
010B0 

B005 I FN-4ANDPL-3THENPR I NT "THE HUT WAS 
PEN": GOTO 1 OBO 

B010 IF N-5THEN PR I NT "O .K . " : G0T010B0 
B020 I FN" 1 1 ANDNOTFL C 1 3 THENPR I NT "THE CHAI 
N STOPS YOU DOING THAT" : G0T010B0 
B085 IFN-11ANDFLC13THEN PRINT"O.K. - THE 
LID FOLDS BACKWARDS. " : FLCS3— 1 : B0T010B0 
BSSS PR I NT "I DO NOT UNDERSTAND WHAT YOU 
MEAN" :B0T01 OBO 
9000 REMUERB-USE 

3010 IFN-16ANDPL-4THENPRINT"THE CHAIN BR 
EAKS. ": :FLC13— 1: G0T010B0 
3SS3 PR I NT "I DON'T UNDERSTAND WHAT YOU M 
EAN . " : B0T010B0 

10000 I FN- 1 BANDPL-4THEN0B C 1B3— 1 : PRINT"T 
HE CHAIN BREAKS. ":FLC 13 — 1:G0T010B0 
10010 I FN-1BANDPL-4AND0BC 1B3<> -1THENPR IN 
T"WHAT WITH?": GOTO 1 OBO 

10S33 PR I NT "I DON'T UNDERSTAND WHAT YOU 
MEAN. ": GOTO 1 OBO 

READY . 



37 



ABACUS SoFtuiarB 



ADVENTURES BAMEWRITER 'S HANDBOOK 



EOLDFE 





1984 


[jOERG S 


RLKOUII AK 




1 REM — BOLDRUSH, VERSION 1.0 — 

2 REM CCD 19B4 BY WALKOUIIAK 

10 REM TITLE PIC 

TURE 

11 P0KE532B1 , 11 : P0KE532B0, 12: PRINTCHRSC 1 
423 

12 PRINT"" 

13 PRINT" 




I I 



i i 

i— i i — is I 

18 . n'X* ' CC3 1984 ' **** 

19 . iTSS*" ' 1 **** 

20 PRINT" IJOERG UALKOUIAK I KftSfift 

21 PRINTJ^.^ ' 

22 PRI^IT" 



23 PRINT" 

WBSft 

24 PRINT" r 

SAW: 

2B PRINT" r 

✓ WSSft 
2/ PRINJ" | — 

2B PRINT" | 

29 PRINT" | 

30 PRINT" | 

u mm" 



✓ 
S 
S ¥ 



i i 

i s 
i s 

eram trie aaaeuB A 'ook •• 



9B 



ABACUS Software 



ADUENTURES GAIIEWRITER 'S HANDBOOK 



4. FROM THE BOOD TO THE PERFECT ADUENTURE 

IF you have played with the miniversion of GOLD FEUER or 
have created an adventure yourself using the techniques 
developed so far, you mill agree with me that popular 
programs of the adventure type have already reached a very 
high standard. 

Even so, from time to time uib Find adventure games offering 
further extras. To beat the competition, either the usBr 
friendliness has been increased or use has been made of the 
trivialities of everyday life in the realization of the 
game, trivialities that only make the player's life more 
difficult. 

On top of this there are already a number of programs that 
draw attention to unique Features, this involving 
expenditure on advertising. 

The player is also offered sound, from single beeps and 
cheeps, signaling an understood or non executable command, 
to the imitation of the human voice. Unfortunately the 
value of all this from the paint of view of the game is 
precisely nil. Therefore one should think twice about 
sacrificing one's money on cheap showmanship and consider 
whether it would not be preferable to have your adventure 
worlds expanded by your own programming. 
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4.1 USER FRIENDLINESS 

This is always being demanded in the case of business 
programs, so why not in the case of game? 

There are adventures that do not even tell the player by 
what routes he can get away from a dangerous place. They 
drive him to despair with the statement "You can't go in 
that direction" following input of all points of the 
compass . 

It's a good thing, sometimes, if the player has to tear his 
hair out, but it does seem to me that these programs have 
been written in order to say "We guarantee that you will 
need months to get to know all the places in this 
adventure! " 

Fortunately this criticism cannot apply to our adventure 
system. Nevertheless the absence of any possibility of 
storing the state of the game at any given moment means that 
the player will quickly lose all pleasure in the game. 

Unfortunately this applies especially to adventures to whose 
development we have devoted a great deal of energy and of 
whose complexity and intelligently set traps we may be 
particularly proud. 

Let us help the player, who in any case must have more than 
seven lives, to get to know all the possible ways of dying 
in adventures and let us create the technical prerequisites 
to Bnable him, richer by many experiences, to continue the 
game from this point on. Then, if he does not make timely 
use of this option, he can only blamB himself. 
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4.2 SAUE SAME/LOAD SAME 

Let us First consider how a certain scene in the game 
differs from the starting position. 

The first thing we notice is the player, who has been moving 
about more or less determinedly. Then we think of the 
objects that he has taken, discarded, destroyed, used, or 
eaten, of objects that no longer exist, and of things that 
have appeared in the game for the first time. 

Apart from these visible and perhaps less important contents 
of variables, less important because they can be checked, we 
must save the changes made to control the course of the 
game, otherwise it can happen that despite all the necessary 
objects being present an action does not bring the desired 
success. \ 

Let us think about flags that cannot always be used for 
checking the course of a connected question, but can be used 
for checking seemingly unconnected events. 

The same applies to our direction table. As we shall see 
later, extensive changes are quite common here. 

Briefly put, the contents of the variables PL,0BC3, FLCD, 
and PACD must be stored on the disk or cassette as a 
sequential file before a game is ended. 
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4.2.1 External data storage 



In addition to the internal data storage, in which the data 
is Filed in thB actual working storage of the CPU and are 
permanently at its disposal, external storage is also 
necessary for dealing with data of any kind. Such storage 
extend the storage of a computer in almost any way required 
and in essence serve to document and prepare large amounts 
□f data. Representative of this kind of equipment are 
punched cards and tapes, magnetic tapes, disk and platen 
drives, and our 1541 floppy disk or Cassette data set. 

Apart from different capacities and access times, there arB 
also differences in the method of data storage. 

Storage devices such as a tape punch/reader or the data set 
use what are called Files and can best be compared to an 
ancient parchment scroll, while a disk or platen drive 
generally uses relative files. 



Both methods have their advantages and disadvantages, 
particularly in respect to the space required and the time 
needed to file a specific data record. 

Thus each address in a customer File will need □ card of its 
own, while on the scroll all addresses will be entered as 
close as possible together to save paper. If however you 
are looking For the address of customer 234, you take the 
234th card, since they are of course all numbered. In the 
case of the scroll it will not be possible to avoid reading 
all addresses or at least counting them through from the 
beginning . 
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Readers who would now like to deal more with Files should 
review this with the appropriate literature, otherwise it 
may be enough to say that sequential storage is Just the 
right process for our problem, since we want to store the 
contents of our variables one after thB other and later 
reload them, that is to say we da not need special access 
methods . 



4.2.2 SAUE SAME 



It will be expedient to transfer the data within loops whose 
structure we base on the initialization part of our 
adventure. For this purpose however it will be necessary to 
extend the characteristics of the program by the number of 
flags used, since this must also be saved. 

It will be necessary to alter program line 1500 in order to 
build the new routines into the interrogation of the special 
commands: 



ISO AF-3 

1500 IF LEFTSC ENTRYS, 3 3<> "INU" THEN GOTO 1600 

If the player's last input is not the command Inventory, a 
numbBr of Jumps are executsd and an identity with one of the 
brief commands is establishsd: 



1599 REM SAUE GAME 

1600 IF LEFTS C ENTRYS , 4 D - "SAUE" THEN GOTO. 1700 
1G99 REM LOAD GAME 

1700 IF LEFTS C ENTRYS, 43 - "LOAD" THEN GOTO 1900 
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Before the operating system of our C-64 can transfer the 
data, it must first be given some information as direction 
of transfer, path of transport, and addresses, a task done 
by the open command . 

16E0 OPEN E.B.e, "@0 : SAME , S, UT 

After execution of this line a data file called "GAME" is 
available on the disk in the drive with the device number 8. 
This data file can be described as a sequential file CS] CUI 
■=U)riteD. The @ character is necessary in order to be able 
to storB an advanced game under the same name. 

Users of the data set input the following line instead: 

16E0 OPEN 1,1,1, "GAME" 
and change every #£ to ttl . 

After this preparation nothing stands in the way of 
transferring our playing data, The output of the data to 
the disk is executed in a similar way to an output onto the 
screen . 

The PRINT# command is used to redirected the output to the 
correct file. 

A concluding close command protects us from subsequent 
errors before we return to the main program. 
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1630 


FDR I - 1 TO AO 


1631 


PRINT#e,OBCn 


1632 


NEXT I 


1635 


FOR SPACES - 1 TO NS 


1636 


FOR Dl - 1 TO 6 


1637 


PRINT#2, PACSP.DI3 


1636 


NEXT DI 


1639 


NEXT SP 


1645 


FOR I - 1 TO AF 


1646 


PRINT*2, FLCID 


1647 


NEXT I 


1650 


CLOSE 2 


1670 


PRINT CHRS C147D:G0T0 10B0 



To reconstruct a given situation, it is essential to 

transfer this data back to thB corresponding variables, a 
task taken over by an almost identical program part: 

1720 OPEN 2,6,2, "GAME , S , R , " 

1725 INPUT#2, PL 

1730 FOR I - 1 TO AO 

1731 INPUTttl, OBCn 

1732 NEXT 

1735 FOR SP - 1 TO NS 

1736 FOR DI - 1 TO 6 

1737 INPUT#2, PACSP,OI] 
173B NEXT DI 

1739 NEXT SPACE 

1745 FOR I = 1 TO AF 

1746 INPUT#2, FLC I 3 

1747 NEXT I 
1750 CLOSE 2 

1770 PRINT CHRS C 1473 : GOTO 10B0 
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When using the data set, use the Following line: 

1780 OPEN 1,1,0, "GAME" 

Naturally you must again change. all #S's to #l's. 

This would salve the task so far as cassette systems are 
connected, but disk users should avail themselves of the 
possibilities offered by disks and, before continuing the 
game, satisfy themselves that the operation went perfectly. 

Perhaps, when the Save function is called up, the program 
disk, which for safety reasons has a write protect on it, is 
still in the drive or the disk concerned is Full - there are 
mapy things that could result in making all the previous 
work a waste of time. 

Page 36 of the disk operating manual tells how the error 
channel is read. Our job now is to evaluate the information 
thus obtained and, if necessary, pass it on to the player. 

Therefore let us add the following lines to our program: 

1B7S REM DISK ERROR 

1680 OPEN 1,8,15 
16B1 INPUTttl,A,B$,C,D 

16BE IFA <> OTHENPRINT: PRINT "ERROR:";: 

PRINTA , BSC , D : F0RI-1T05000 : NEXT : CL0SE2 : CL0SE1 : GOTO 
10B0 

1683 CL05E1 

16BH RETURN : RE(1 END OF ERROR 

and call it at the necessary points: 
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1660 GOSUB 1680 
1760 GOSUB 16B0 

To equip our program even more luxuriously, we shall add a 
Few more lines. It is not at all necessary For us to 
restrict ourselves to only one File For storage. A second 
File will even be essential iF other members oF our current 
Family start liking adventures and want to try their hand at 
the same game. 

ThereFore let us give the players a Free choice and allow 
them to choose among all conceivable names up to the maximum 
length oF sixteen letters. 

Let us also add a Few more print and control commands to 
ensure that the clean display oF the screen image is 
maintained . 

A subroutine completed in this way will then look like the 
listing printed on the Following pages. 
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1599 REM SAUE GmE 

1600 IF LEFTSCEIS,4DO"SAUE" THEN GOTO 1700 
1605 PRINT" "SPCC10] ; : INPUT" ENTER NAME"; ENS 
1610 IF LENCEN$]>16 THEN 1605 

1615 PRINT" SAYING " ; ENS 

1620 OPEN 2,8,2"@0: "+ENS+" , S, W" 

1625 PRINT#2,PL 

1627 PRINT#2, UIE : PRINT#2 , Ltl : PRINT#2 , Ltd 

1628 PRINT#2, ZU 

1630 FDR 1=1 TO AO 

1631 PRINT#2,0BCn 

1632 NEXT I 

1633 PRINT" . "j 

1635 FOR SP=1 TO NS 

1636 FOR DI = 1 TO 6 

1637 PRINT#2, PACSP , DI 3 

1638 NEXT DI 

1639 NEXT SP 

1640 PRINT"."; 

1645 FOR 1=1 TO AF 

1646 PRINT#2,FLCn 

1647 NEXT I 

1648 PRINT"."; 
1650 CLOSE E 
1660 GOSUB 1680 

1670 PRINT"Cclr3":G0T0 10BO 

1678 : 

1679 REM DISK ERRDR 

16B0 OPENl.8,15 

16B1 INPUT#1,A,BS,C,D 

16B2 I FA< > OTHENPR I NT " : PRINT "ERROR : 

" : PRINTBS: F0RI-1T0 5000 : NEXT : CL0SE2 
1683 CL0SE1 
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16B4 RETURN : REM END 

169B : 

1693 REM LOAD SAME 

1700 IF LEFTS C ENS ,430 "LOAD" THEN GOTO 1800 

1705 PRINT" "SPCC 103 "LOAD GAME": INPUT" WHAT IS 

THE GAME'S NAME" ; ENS 

1710 IF LENCEN$3> 16 THEN 1B05 

1715 PRINT" LOADING "EN$""j 

1720 OPEN 2 ) B,2,EN$+",S,R" 

1725 INPUTtt2.PL 

1726 PRINT"."; 

1727 INPUT#2, U)E: INPUTtt2,Ll: INPUT#2,LM: INPUT#2,LU) 
172B INPUTtt2, ZU 

1730 FOR 1=1 TO AO 

1731 INPUT#2,0BCI3 

1732 NEXT I 

1733 PRINT"."; 

1735 FOR SP-1 TO NS 

1736 FOR DI-1 TO 6 

1737 INPUTtt2, PACSP.DID 

1738 NEXT DI 

1739 NEXT SP 

1740 PRINT"."; 

1745 FOR I = 1 TO AF 

1746 INPUTtt2, FLC I 3 

1747 NEXT I 

1748 PRINT"."; 
1750 CLOSE 2 
1760 GOSUB 16B0 

1770 PRINT"CclrJ":GOTO 1080 

1771 REM END OF GAME 
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1.3 THE UOCABULARY 

Frequently the correct choice of words makes an adventure 
game a torment, since, as a player, one is compelled to use 
the same mode of expression as the programmer, which is not 
always easy . 

"Take knife" is not so bad, but the knife will have a Job to 
do. A knife is a welcome object, since outputs such as 
"Throw knife away", "Grind knife", or "Sharpen knife" do not 
call for all that much imagination and likewise can be 
clearly interpreted. 

When the knife has fulfilled its function, one will sooner 
or later want to get rid of it. In same games this can be 
done by deliberately losing it. "Drop knife" is somewhat 
more effective than "Lose knife", but automatically the 
question of where occurs. up. This input, it is true, 
contradicts the usual rules of the game, but nevertheless 
should be tried, at least on our system. 

Let us finally reconsider an example given in the first few 
pages of this book. How do we get into the crown of the 
tree? Perhaps with "Climb tree"? All we get again is the 
message that the ward "climb" has not been understood, so do 
we give up or go an brooding? It will not be possible to 
avoid trying verbs such as "up" or "mount", and if the 
action is really essential, a successful result will sooner 
or later be achieved. 

Naturally problems of this kind are not very nice, and as 
this chapter deals with the question of perfecting our 
adventure system, we shall look for suitable solutions. 
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H.3.1 SYNONYMS 

As a first suggestion, one way of solving the language 
problem would be to incorporate synonymous words in 
sufficient numbers. As the example of the tree shows, 
however, the logical provision of synonymous words can 
greatly increase the size of a program. This means an 
immense amount of additional routine work and severely 
restricts the free memory, which is becoming smaller and 
smaller. 

Nevertheless, again taking Gold Fever as an example, let us 
suggest a solution, one that is almost convincing on 
account of its brevity and simplicity. Needless to say, it 
is not a question of essential program lines. It is up to 
you to decide whether ypu are prepared to be content with 
the subsequent suggestion aimed at improving the user 
friendliness . 

A person playing Gold Fever will in space 3 have his first 
chance of not finding the right word immediately when he 
attempts to take a closer look at the wooden hut. So far he 
will have failed with "Examine wooden hut". He will succeed 
only with "Examine hut". 

If the second idea is to be understood at all, we must first 
expand our vocabulary: 

120 A0=9 

319 DATA "-", "WOODEN HUT",0 
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We can spare ourselves a detailed description. Likewise the 
zero representing the location becomes obligatory. Finally 
no further hut must appear either in the inventory or in a 
space . 

All that is needed is the reference name to enable the 
adventure driver to ascertain the corresponding object 
number, which is done on line 2140. 

Normally the execution of the program is continued in line 
2200 with a jump to the respective command execution. Here 
naturally there is not a single condition that would be 
fulfilled, since nowhere is a value of IS demanded for N. 
To avoid having to add to these lines, we insert the 
following dodge: 

2140 IF EOS-RNSCN] THEN 2165 

2154 REM SYNDNYHS 

2165 IF N=19 THEN N=4 

Now exactly the same actions are carried out with the wooden 
hut as with the hut. 

Enabling our program to understand □ multiplicity of verbs 
involves even less work. 

A word introducing the same action is likewise placed at the 
disposal of the adventure vocabulary, and the Jump table is 
simply supplemented by the Jump target already once used. 

In this way we extend Bold Fever with the function "LOOK 
AT", making it identical with "EXAMINE" : 



112 



ABACUS Software 



ADUENTURES EAMEU1R ITER'S HANDBOOK 



130 AU=7 

S07 DATA LOOK AT 

E200 ON UN SOTO 5000,6000,7000,8000,9000, 
10000 , 5000 

As you see, our system can very easily be extended by 
synonymous verbs, so uie should not give up this bonus. 

we do not need to pay much attention to synonyms of the 
objects, since in any case they are not of the same 
importance, the heading lines to the game nearly aluiays 
giving enough clues, except in the case of graphics 
adventures . 

Ule can houiever make things even easier For the player, so 
that he can really concentrate on solving the problems and 
does not become lost in his search for the right words . 

What if an adventure exposed its entire vocabulary on 
request and produced a list dF all existing objects and 
possible verbs? 

A picture such as the one on the next page should eliminate 
all problems of word selection, and the player does not lose 
time or interest with senseless inputs. 
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VOCABULARY 

I UNDERSTAND THE FOLLOWING UERBS 

EXAMINE 

TAKE 

DROP 

OPEN 

USE 

DESTROY 
LIGHT 
FILL 
ENTER 

EXTINGUISH 
FIX 

PRESS A KEY 

Let us imagine a player who is not yet familiar with Gold 
Fever. Without having played very much, he will, if he can 
think mare or less consistently and logically, immediately 
develop a strategy that will quickly bring him to his goal 
in the solution of the problems. 

He immediately knows the entire vocabulary and knows that 
somewhere there is a Jar, that somewhere there is a chest, 
and will at once develop a strong yearning for silver and 
gold nuggets. Then he will consider What objects can be 
destroyed and his choice will fall on the Jar, the hut, and 
the chain. 

He endeavors to find the treasure chest, and after realizing 
that an iron chain is stopping him From inspecting the 
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contents, he tries to destroy it, but he can hardly do so 
with his bare hands. A Further UOC will then give him the 
idea that the iron bar is presumably the only object 
suitable For this Job. 

But also the tension caused by the dangers is relived as it 
does not escape the player's notice that the world is 
inhabited by not only himself but also by a bear! 

Accordingly another of the programmer's tasks will be to 
decide carefully whether he wants to expose the entire 
vocabulary used in the adventure or only part of it. 

This could be done without any problem by means of a further 
screen outputting a number of the mare important words, but 
it would be counterproductive to our aim, which is the 
development of a universal adventure system, because this 
screen would have to be revised for each program. 

In the case of large adventures with a corresponding 
large vocabulary, the listing of the vocabulary does however 
make perfect sense, so we do not propose dispensing with it 
when developing our adventure system. 

For this reason the adventure driver takes over the handling 
of the UOC command. To ensure a really universal use of 
this program section, the words to be output must be 
ascertained from the playing data of the adventure 
concerned . 

It has already been briefly mentioned that the BASIC command 
RESTORE sets the DATA pointer to the beginning of the data 
block and that the next READ will again read the First 
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element in the list to □ variable. 

Fortunately the arrangement of our adventure data fits in 
well with such a procedure, as first the verbs and then the 
objects are named. No execution time must be spent on 
reading the rest of the data . 

Let us build in the appropriate subroutine after the INU, 
SAUE, and LOAD routine: 

1B00 IF LEFTS C ENTRYS , 3 3 <> "UQC" THEN GOTO 1300 
1B05 PRINT CHR$C147D:PRINTCHR$C15B3; 

"I UNDERSTAND THE FOLLOWING UERBS" ; CHRSC 173 ; 

CHRSC17D 
1B06 RESTORE 

Any subsequent READs now acts like the first READ command. 
Therefore let us change the corresponding program lines from 
part 1 with a modification that allows the data being read 
to no longer be stored, but only printed out on the screen: 

1810 FOR 1-1 TO AU 

1820 READ UOS : PRINT UOS 

1830 NEXT I 

Following this we will give the player enough time to study 
the list of verbs. The same must be donB with the printing 
out of the objects, so we insert the corresponding lines as 
a subroutine, this being called with a SOSUB at the points 
concerned : 
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1B40 GOSUB 1B90 

1845 PRINTCHRSC 1473: PRINT 

"AND THE FOLLOWING OBJECTS ARE KNOWN TO ME:" 

CHRSC 173 
1B50 FOR 1-1 TO AO 
1BBO READ UOS.UOS.X : PRINT UOS 
1B70 NEXT I 

18B0 GOSUB 1890: PRINT CHRSC 1473 : GOTO 10B0 
1890 PRINTSPCC243;CHR$C173 ; "PRESS KEY"; 
1B95 GET ENTRYS: IF ENTRYS-" "THEN 1B95 

1896 PRINT CHRSC 1473 : RETURN 

\ 

It should be noted that in BASIC, DATA lines are read 
sequentially. Therefore line I860 First allocates the 
detailed object description to the string variable UOS . 
Because we do not need this long text at this point, the 
description is then immediately overwritten with the 
reference name . 

To conclude the listing of the entire vocabulary, the 
subroutine is again called from line 1830, so that, after a 
further key has been pressed, the adventure may be 
continued . 

The above lines will now work as planned, at least so long 
as not more than twenty words have to be output . When this 
Figure is exceeded, the time that the first words are on the 
screen will hardly be long enough to be of any help to the 
player . 

To solve the problem, we introduce the check variable called 
LINE. This is set to zero at the start of the output and 
raised by one For each output. 
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At twenty words we clear the screen and set the counter back 
to one . 

1B49 LINE-0 

1B50 FDR 1-1 TO AO 

1B55 LINE-LINE+1 

1BB0 READ UOS,UO$,X : PRINT UOS 

1BB5 IF LINE-BO THEN GOSUB 1B90 

1BBB IF LINE-20 THEN LINE-1 : PRINT CHRSC 1473 

1B70 NEXT I 

Running the program now brings the required result, but the 
contractions appearing CEXA.OPE, or whatever] in no way meet 
the standard oF our programs . 

To achieve a more satisfactory result, we change the verbs 
and objects in the DATA lines provided For them C200 - 5003 
and take the, trouble to write them out, regardless oF the 
relevant word length. 

With this manipulation it now becomes necessary to make a 
Further addition to lines BIS and B35 . After all, we do 
not want to waste the memory area provided For the 
variables . 

Why must the wholB word be stored when For the clear 
identification oF a move only three or Four letters are of 
importance? 

B15 READ UERB$CI3:UERBSCI3=LEFTSCUERB$[I3,WL3 
B35 READ OBSC OBJECT 3, OBC OBJECT 3: 
RNS C OB 3 =LEFT$ C RNS C OB 3 , WL 3 
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1.4 HELP 

The development Df a Help routine is the final step aimed at 
increasing the user friendliness of our adventure. 

If the player thinks he can move no farther, he will try to 
obtain some helpful information merely by inputting HELP. 

If it is a simple game, then enough information is given in 
the course of it, we can make the matter easy far ourselves: 

1959 RED HELP 

1960 IF LEFTS C ENTRYS , 4 ] <> "HELP" THEN GOTO 5000 

1970 PRINT" I CAN REPEAT THE RULES OF THE GAME.": 
PRINT "00 YOU WANT THAT?" 

1971 GET ENS: IF ENS="" THEN 1971 
197E IF ENS="Y" THENGDSUB 900 
1975 GOTO 10B0 

1979 REM END OF HELP 

A standard answer that is even mare frequent is "Yau should 
try everything! - Try examining things!". Usually however, 
at least in adventure games of more recent date, advice, is 
given that sometimes is not of much help, because the player 
cannot understand it. 

Since it is a one-uiord command, the help required is not 
related to any particular abject. In view of the player's 
difficulties this does not make an evaluation of the 
situation exactly easy. 

Finally only the player's location space is available to the 
program as a working basis, so it is not surprising that in 
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problematic spaces many adventures repeatedly output the 
same message to the player, a message he cannot understand 
because he has been thinking about another problem. 

As a typical example let us take a scene from space 4. The 
player has discovered the treasure chest and far some time 
has been struggling in vain with the troublesome iron chain. 
In this situation the following message would be 
conceivable: 

1370 IF PL=4 THEN PR I NT "A LEUER WILL 
INCREASE YOUR STRENGTH .": B0T010B0 

What could a player who in space 4 asks for help do with the 
suggestion, that he should think a lever when he has not yet 
found the chest and accordingly cannot have discovered the 
chain? 

If Dne wants to spoil the player and in particularly 
difficult situations lead him to the solution step by step, 
this will not be possible, as the above example shows, 
without the formulation of extensive tests and condition. 
Once again the flags and the storage places for all kinds of 
objects seem predestined to perform this task. 

Taking the chest as an example again, let us try out this 
kind of carefully measured help, which of course is not 
intended to mean that this scene is to be regarded as 
particularly difficult: 
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BOB t1S$C63 = "HOUJ CAN I DESTROY THE CHAIN?" 

1970 IF PL-4 AND OB C 103=0 THEN PR I NT "I NEARLY FELL 
INTO A PIT.":B0T010B0 

1971 IF PL-4 AND 0BC113-PL AND NOT FLC23 THEN 
PRINTMSSC63 ; : PRINTt1S$C73 : SOTO 10B0 

Let us remember that on passing the space concerned only the 
bushes are visible at First and that the hole in the ground 
still has to be discovered. If however the player is warned 
of thB possibility of a near fall into a pit, he will 
probably pay more attention to this obstacle. 

At this point any further attempt with Help will offer no 
particular advantage. Only after the chest becomes one of 
the things in the space as a visible object is it suggested 
to the player that inspection of the contents calls for the 
chain to be destroyed and the lid to be opened. 

It is hoped that the player will then be able to carry out 
these actions by himself. If he cannot, it might be worth 
his considering whether it would not be better for him to 
read a novel or play arcade action games. 

As when programming the other actions, a safety statement 
will again form the conclusion to the help command. this 
statement is always executed when no specially defined 
situation has arisen: 

1971: 
197E: 

1975 PRINT"FIRST LOOK, THEN THINK, AND FINALLY ACT 
! " : BOTO 1080 
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4.5 THE PLAYER'S MOTIUATIQN 

Our next suggestion For better adventures will extend our 
adventure driver by a final one-word command. 

For their solution adventure programs do take a certain 
amount oF time, but if one plays them For days on end and 
sees no progress at all, one asks oneselF one day whether 
one should not load another game. 

For this reason I consider adventure games that use a point 
system that shows the player how Far he still is From his 
Final goal considerably more appealing. 

It is however necessary to consider on what basis the 
scoring is to be carried out. For every treasure Found or 
For every task solved in an adventure the usual version 
provides For a certain number oF points. In addition to 
being told "OF 100 possible points you have 40" the player 
is also given the percentage, as a result oF which the score 
is more easily and more accurately evaluated. Scott Adam's 
"Adventure land " can again be taken as an example. Thirteen 
treasures give a bad number oF points, but with more than 50 
percent the player knows that he has covered halF the 
journey . 

An alternative solution will reward each step Forward and 
not deter one by deducting a certain number aF points Far 
any help given. Likewise any mistake resulting in death 
will not make any signiFicant diFFerence, so that in an 
extreme case even a negative value can not be scored. It is 
this method that encourages one to make repeated attempts to 
Find a solution, since aFtBr all it should be possible to 
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score more points than the friend who likewise has reached 
the goal . 

If an adventure is to be equipped in such a manner, the 
programmer's job starts with the selection of suitable 
sequences. After all the mere finding of an object is not 
meant to be worth any points at this stage. The player may 
however expect a reward if he has tricked seme dangerous 
monsters or found some secret passages. 

Before we now go into the practical execution of various 
versions in detail, we first give the driver an 
understanding of the command "SCORE" : 

1500 IF LEFTS C ENTRYS , 3 ] <> " I NU " THEN B0T0 15B0 

1559 REM SCORE 

15B0 IF LEFTSCENTRYS,33O"SC0" THEN B0T0 1600 

To- store the score obtained, we then enter the variable 
SCORE. Here it is important to see that this is set to zero 
with every fresh start and accordingly also in the event of 
death of the main figure. 

Naturally the score obtained says nothing unless it is 
related ta the maximum number of points possible. Hence: 

170 UIM=20 : REM MAX I HUM POINTS OF THE I1INIUERSI0N 

171 UJE-0 : REM POINTS 

15B1 PRINT"OF";UIE; "POINTS YOU HAUE" ; UII1; "POINTS . " 
15B5 SOTO 10B0 

The player scores the points when he picks up the gold and 
silver coins. Therefore let us supplement the lines 
concerned in our action part: 
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6014 IF N-1E THEN PRINT"D.K. ":0BC1ED=-1 

:WE-WE+10:GO.TD 1080 
B017 IF N-17 AND FLC33 THEN PRINT "O.K.": OBC 173=— 

l:UIE=UE+10:SDTO 10BO 

Unfortunately a player who is only trying to score points 
can achieve sums as high as he likes with the present 
execution of the program. 

Let us remember that on arranging the "Take" action we had 
agreed that "Take" actually meant to "Take in the hand". In 
addition to picking up objects for keeping in the inventory, 
this made it possible in practice to take From the inventory 
in order to carry out an action, for instance the opening of 
a door by means of a key . 

This interpretation proves to be obstructive, since there is 
nothing to stop the player From inputting "Take silver 
coins" several times and adding tBn points to his scorB with 
this input. 

As a way out, either the general preliminary condition Cline 
60001 can be altered or additional conditions can be 
introduced into action itself . 

Ule already know this principle from the execution of the 
"Examine" action. Here a similar arrangement had to be made 
to prevent an object from repeatedly becoming visible at its 
place of origin. 
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6014 IF N-1S AND 0BCN3-H THEN PRINT"0 . K . " : OBC 1S3— 

1:UE-WE+10:G0T0 10B0 
6017 IF N-17 AND OBCN3-5 AND FLC33 THEN 

PRINT**O.K. ":0BC17D — 1 : UE-UIE+10: GOTO 10B0 
6020 IF N-1B AND 0BCN3 — 1 THEN PRINT" I ALREADY HAUE 

THE SILUER ! " : GOTO 10B0 
60B1 IF N-17 AND 0BCN3 — 1 THEN PRINT" I AM ALREADY 

IN THE POSESSION OF THE BOLD I GOTO 10B0 

On the other hand if you decide always to interpret the 
"Take" action as an action that makes the player rich, you 
can restrict yourself to tightening the preliminary 
condition and outputting a corresponding reference: 

6000 IF NO PL THEN GOTO 6300 

639B PRINT" I ALREADY HAUE THAT !":G0T0 1080 

In the case of our Dinn adventures, or at least the 
adventures in this book we propose merely scoring the 
treasures that have come into the player's possession. Even 
sd we shall not be able to do without assessing the player's 
individual moves. 

On the contrary we shall even go a step further and assess 
each individual player, informing him of the average score 
obtained. 

As a basis for this evaluation the number of moves is 
available. An experienced adventurer will not linger 
examining every small thing, Just as he knows how to take 
advantage of typical references. 
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we work out an average value from this sum and the score 
achieved and assess the player on the basis of this 
quotient . 

180 F10UE=0 

1080 PRINT CHRSC154D : ri0UE=M0UE+l 

15B1 PR I NT "OF" j Utl; "POINTS YOU HAUE IN"; H0UE ; "MOUES " 
1565 PRINT SCORE; "POINTS ! THIS EQUALS AN" 
1SB3 PR I NT " AUERAGE OF" ; UALUE/MOUE; "POINTS." 
1564 SOTO 10B0 

we also redefine the criterion for a successful end to the 
game. Instead of a precisely defined condition dependent on 
the game we now compare the score reached with the maximum 
value possible. If the difference is nil, the player has 
solved the problem. 

It is expedient to carry out this test right at the start of 
each move, before any data is passed to the player. 

10B5 IF UIH=UIE THEN GOTO 4B00 

Should you use the score as a criterion, please do not 
forget to remove from the program all other lines dealing 
with the same task Cline numbers within the range 1331 to 
1389 D . 

with the logical introduction of a points system we are now 
finally faced with the Job of adapting the victory message 
to this structure. 
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For that purpose it will of course not be possible to avoid 
playing through a complete run when the adventure has been 
completed and contains no more errors. In this game you 
dispense with all inputs that are not absolutely essential 
and establish the minimum number of moves required for 
victory. Calculate the ratio between points and necessary 
inputs and take this value or a somewhat lower figure as □ 
basis and a characteristic of a very good game. 

Choose correspondingly graded remarks for worse assessments . 

Thus a game based on the miniversion of Gold Fever can be 
marked more or less as follows: 

1800 PRINT CHRSC1473 
4805 EW=wE/2U 

1810 PR I NT "CONGRATULATIONS" 

4810 PRINT"Y0U HAUE REACHED THE END OF THE GAME" 
4B20 PRINT 

4855 PRINT" IN" ;ZUG; "PtOUES YOU HAUE SCORED" 

4830 PRINT Eld; "POINTS" 

4835 PR I NT "WHICH IS A" 

4840 IF EUK0.5 THEN MS$-"P00R" 

4B45 IF EU)>0.5 THEN MS$="FAIR" 

4850 IF EU)>1.0 THEN MS$-"G00D" 

4855 IF EU)>1.5 THEN MS$="UERY GOOD" 

4880 PRINT MSS ; "RESULT" 

4833 END 

A title arranged in such a way, suitably made up by the use 
of control, color, and graphic characters, will induce many 
adventurers who have Finally mastered thB adventure to play 
it again. 
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These remarks should actually conclude the subject of 
"ScorB". Ule have to make a technical addition without which 
all that lovely planning would be wrecked and whose absence 
would definitely disappoint the players of our programs. 

Perhaps you have already thought of our Save game routine, 
which naturally must be able to store and load the score and 
movements introduced above if the player is not repeatedly 
to start with zero points. 

1757 PRINTttS, UIE 

1758 PRINT#2, MOUE 
1BB7 INPUT#S, WE 
1B2B INPUTttS, I1DUE 

All suggestions made in this chapter had the sole purpose Df 
increasing the comfort of the programs. 

I think you will agrBB with me if I say that adventures 
developed in accordance with the concept of this book and 
contain all the necessary extras may by all means be counted 
as belonging to the top class of text adventures. Thersfore 
let us conclude the technical devslopment with these lines 
and turn to the qusstion of how we can make the games 
themselves more attractivs and even more difficult. 

Here we shall do as usual, following dry theory with program 
lines intended for our first work, Gold FBver . 

The following pages will show you in particular how you can 
place further obstacles in thB player's way, so that he does 
in fact have to make use of the commands Save and Load in 
order to get to his goal . 
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In order to have enough room For monsters, trap doors, and 
what have you, we shall now deal with the geography again 
and develop our miniworld so that it provided a basis Far a 
complete adventure. 

Should you however intend to enjoy an adventure game 
yourselF, you should, beFore dealing with the next sections, 
input all program lines still missing or, better still, have 
them input by someone else. 

A listing with all suggestions made will be Found in the 
last chapter . 
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4.6 FINDING ONE'S BEARINGS OR LOSING ONE'S BEARINGS 

As already mentioned at the beginning of the book, most 
adventure games are played within a world of about forty 
spaces. Nevertheless one gets the impression of a much 
larger world, with the vast woods, a swamp, an underground 
cave, a maze, and so on. 

In actual fact however the extensive-looking areas are small 
groups of spaces so skillfully interconnected that the 
player usually does not even notice on what journey he has 
been sent . 

The range of possibilities extends from the plain space that 
repeatedly leads into itself to a chain of spaces at the end 
of which the player is returned to start. 

Let us at this paint make use of the similar spaces 1 and 2 
in Gold Fever to have a wide area at our disposal right at 
the beginning of the game. 

Let space 1 lead back into itself again in a northerly and 
westerly direction, do likewise with space 2, and then try 
to imaginB the player who starts in space 1 and wanders 
westwards. How is he supposed to know that after each input 
he is still in the space 1 part of the woods? 

Unless he is lucky enough to start the game with the input 
"E", he will need a series of inputs to find his way out of 
the woods, which will spoil his chances af a good average on 
points . 
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501 ... 1,1,1,2,0,0 

50S ... 2,2,3,1,0,0 
The search or the right wag will be even more difficult if 
the southern exit from space 2 does not cause the player to 
go into space 2 again, but causes him to enter space 1. 

501 ... 1,1,1,2,0,0 

502 . . . 2,1,1,3,0,0 

Start the program and see the effect of this small change. 

Ulith three spaces it is possible in this way to produce 
small mazes if the connections are made at random, without 
reference to a compass, and there is only one entrance and 
one exit. 

The usual connecting technique used by us also keeps to the 
real paths predetermined by cardinal points. This creates a 
world that permits problem-free identification of the spaces 
and enable the player to find his bearings, especially if he 
makes a map. 

Small Jumps over one or two spaces however quickly render 
this concept unusable. 

Let us imagine three spaces lying one behind the other and 
all giving the description "I am in a big cave." 

A player who gets into cave 1 from the west will, as he sees 
nothing in particular, first want to gBt to know the 
immediate surroundings quickly and presumably will not 
change the direction he has taken, since he needs to find 
his way back in the easiest possible manner. 
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After Grossing through spaces 2 and 3, he again moves into 
the first space, but he cannot possibly know this without 
appropriate action. 

By using a Jump technique it is possible, without a great 
deal of work, to produce what appears to be vast mazes. Six 
spaces are all that is needed to make it almost impossible 
for the player to find the right way. 

Even the programmer will encounter enough difficulties 
during the test phase! 

For even making a map becomes a problem with this method. 
This is not so with the alternative method briefly described 
below . 

In this case a maze drawn to scale, preferably on squared 
paper, such as you often find in the puzzle corners of 
magazines. In the subsequent programming Bach small box 
corresponds to a space, so it is possible to see the 
considerable amount of work involved. 

It is likewise easy to see that during his excursion the 
player takes a new box with each new space, marks the walls, 
and leaves the passages blank. 

Instead take six spaces, in each case using one as an exit 
spacB, one as a collecting space, and one as an entry space. 
In the case of the entry space it is important that it alone 
leads back to the place last visited and then only in one 
direction. The same applies to the last space, only one 
passage allows new territory to be entered, all the other 
paths lead into the maze . 
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The collecting space performs a central function. From each 
space in the maze two or more paths lead into the collecting 
space, but all exits bring the player back into the first or 
even the second space in the maze. 

To complicate matters further, the exit from the space lying 
in front of and connected to the last space is arranged in 
such a way that only one path leads into the last space, 
while all others lead into the collecting space or the 
first space. 

Needless to say, an identical description is provided for 
all spaces and as far as possible all six directions are 
used. The player will now have to be almost as lucky as a 
lattery winner to leave the maze before finding the only 
correct path of six in the last space. Here any mistake 
will throw the player back into another space, this in turn 
offering six possibilities. 

Try to find your way in the fallowing maze. 
The Gold Fever maze: 
110 AR=14 

507 DATA "I AM AT THE ENTRANCE TO A MINE", 
8,0,1,5,0,0 

519 DATA A WINDING TUNNEL ,8,0,0,5,0,0 

554 DATA A WINDING TUNNEL ,1,0,7,8,8,8,8 

555 DATA A WINDING TUNNEL, 11 , B, B, 13, 11 , 8 
5BG DATA A WINDING TUNNEL ,11,8,10,11,11,8 

527 DATA A WINDING TUNNEL, 9, 8,10,11,10,8 

528 DATA A WINDING TUNNEL , B , 10 , 10 , 1 1 , , 

529 DATA A WINDING TUNNEL ,0,11,12,11,0,0 
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4.B.1 CHANGES OF PLACE 

Apart from mazes, whatever their size, other means are 
available to us for making it more difficult for the player 
to find his bearings. 

Sudden transfers of the central figure to another space are 
very popular. This is made clear to the adventurer by 
messages such as "Everything around me is turning." 

But Bven this message must be taken at bBst as a friBndly 
gesture on the part of the programmer and not understood as 
a duty . 

Such actions are usually triggered off by magic objects 
requiring hard rubbing like Aladdin's magic lamp. 

Magic spells and potions prove to be useful, so the player 
□f an adventure program can only be advised to exercise the 
greatest possible care should the word "magic" be uttered in 
any connection. 

From the programming aspect these changes of place do not 
cause any kind of difficulty when our adventure system is 
being usBd, as all that is necessary is to allocate the 
number of the space to the variable PL 

"Rub lamp" could therefore be implemented as follows Clamp - 
object 33: 

IF N-3 AND OBC33-1 THEN PRINT 

"THE WORLD IS TURNING ...": PL-3: SOTO 10B0 
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IF in addition the description of space 9 is the same as 
that of the old space, the player probably would inevitably 
be confused after the next move. This applies particularly 
to cases in uihich the messages is omitted or a different 
text is chosen: 

IF N=3 AND OBC33 — 1 THEN PRINT 

"O.K. - NOTHING HAS HAPPENED .": PL. =3 : BDTD 10B0 

When the player's change of location is not even dependent 
on the manipulations of any particular objects, but is 
governed purBly and simply by chance, this means a further 
increase in the degreB of difficulty. 

With the construction of our adventure program we can 
stipulate that a certain space must be crossed. If the 
contents of PL correspond to the number of this space, a 
chance decision is made as to whether the player is to be 
transferred or whether for the purpose of execution of other 
actions he is to be allowed to stay. 

What player who after sucessfully crossing a maze and then 
entering an apparently harmless space is more than once 
thrown back into the maze will take the risk of a repetition 
of this? 

Another extract from the Gold Fever adventure shows how this 
handicap can be built in: 

110 NS-1B 

519 DATA IN A WINDING PASSAGE. ,8,0,15,5,0,0 

521 DATA IN A TUNNEL . ,0,15,0,0,0,0 

1340 IF PL-IS THEN IF RNDC13> .7 THEN SP-1S 
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ThB player is transferred to the critical space by leaving 
the entrance to the mazB, at present space eight, a winding 
passage, in a westerly direction. 

He can withdraw from this space immediately or try to find 
out what the wider surroundings hold in store for him. 

If chance will have it Cand whether he wants to we establish 
with the comparative value in the RND function], he gets 
into the next space C1B3. If not, he finds himself again in 
a space in the maze Ccollecting spacB 113, but this space 
offers no clues that will help him to find his bearings. 

Unless fortune smiles on him, he will decide after a few 
attempts that it is another entrance to thB maze. He will 
then avoid this space and so never find somB of the 
treasure . 
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•i.G.2 HIDDEN ENTRANCES 

These can cause the player at least as much difficulty. 
Even if in the line "I can go ..." only the directions east 
and west are mentioned, the world does not have to end in 
the north: 

I SEE A DARK ROCK CAUE, 
A FEROCIOUS-LOOKING BEAR, 
*»NUGGETS»* . 
I CAN GO WEST, EAST. 



O.K. 

WHAT AH I TO DO? E 
O.K. 

WHAT AM I TO DO? S 
O.K. 

WHAT AM I TO DO? W 
O.K. 

WHAT AM I TO DO? EXAMINE CAUE 
I HAUE STARTLED A BEAR. 
WHAT AM I TO DD? N 

Many players, if they are beginners, or indeed most will 
rely an the details given and never enter the cave, since 
any suspicion of a large-scale cave world is immediately 
dispelled by the fact that it is possible to explore the 
cave and carry out other actions. 

Only an input such as "Enter cave" will lead to fresh 
discoveries : 
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130 AU=7 

209 DATA ENTER 

aeoo on un goto 5000,5000,7000,9000,9000,10000,13000 

13010 IF N-13 AND PL=5 THEN PL-IE: 
PRINT "O.K.": GOTO 1090 

NOTE: Before you satisfy yourself as to the function of 
those lines, it is essential to input all further spaces and 
also to alter the connections of those already existing 
C lines 500 -700 D . 

Line 110 must be adapted to the new situation. 

The nice thing about this is that the entrance is not even 
camouflaged . 

It is now no longer the player's task merely to track down a 
hidden space and enter this by means of correctly chosen 
words, but he must be able to develop a plan of how a usable 
path leading to the space can be constructed. 

Taking the simplest case, a door will be involved, a door 
that is initially locked. An indication by the driver is 
ensured by the descriptions of the objects and by the data 
in the line of the direction table applicable to this space: 

xxxx DATA A DOOR, DOOR, 1 

xxxx REM SPACE 1 

xxxx DATA IN A CELL. ,0,0,0,0,0,0 

With this the usual procedure is that the player on 
examining the cell discovers the door, which carries a 



139 



ABACUS Software 



ADUENTURE GAMEWRITER 'S HANDBOOK 



massive lock. "Open door" and "Open lock" point to the 
missing key, so the player Feels compelled to check all 
other objects in thB space to see whether they can be usBd 
For opening the lock. 

In most adventures the mere presence of the key in the 
inventory is enough, while others demand some appropriate 
use oF the key, a Feature that we can now explain in light 
oF our practical experience. 

While same are content with a simple text, the other, more 
elaborate programs use Flags as well C0BHN3— 1. 

However, once the door is open, an appropriate indication of 
direction appears within the heading line and From this we 
manipulate the array item PASSAGE Cr,ri3 relevant to this 
space . 

xxxx IF N-y AND 0BCz3 — l AND PL=x 

THEN PRINT . K . " : PACr , ri J-nr : GOTO 10B0 

y ~ object number door 

z - object number key 

r - present space 

ri= cardinal paint concerned 

nr= new space to be reached 

The above line, inserted into the program deals with the 
verb "OPEN", this makes sure that the player is in 
possession of the right key Cz3 and is standing in Front oF 
the right door Crl . Then the details in the direction table 
are altered accordingly. 
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t.7 LIMITATIONS AND COUNTERS 

I regard these as especially suitable for giving prominence 
to a particular adventure in relation to all the rest, since 
after all they give every adventure problem the fascination 
of reality and make some selections of the adventure real 
brain teasers. 

Their function is seen not so much in the active 
participation of the game but as a background check for the 
general conditions on which the game is based. 

At this point it is probably necessary to mention the 
restriction imposed on the inventory, since a weight limit 
is now one of the things that create reality in adventure 
games . 

Assuming that we are not dealing with a superhuman 
adventure, it would in the first place be unbelievable that 
one person could drag about an unlimited number of objects. 
In the second place the game can become too easy if all the 
objects used in the action are available immediately. 

Technically, a counter monitors the number of pieces that 
the player is carrying with him and if he is already 
carrying the maximum load provided for by the programmer, he 
will rBfuse to pick up any more objects. 

Therefore, before any action is begun, the maximum number 
of pieces allowed must be established: 

185 IMAX-5 
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Otherwise uie leave the inventory routine as it is, since it 
is thB action of TAKEing which we must pay closer attention. 
All actions involving the verb "Take" will now be based on a 
Further common condition, so For the second time an 
alteration to line 6000 is called For. 

Regrettably this planning not only provides For a 
restructuring oF the block concerned, but also destroys our 
dream oF a universally usable driver with all Functions ond 
restrictions . 

For this reason we altBr the Jump table in line 2E00 and 
implement the necessary text beFare starting the actual 
execution oF the commands: 

2200 ON UN GOTO 5000,2210,7000,8000,9000,10000 

2201 REM TEST FOR ROOM IN THE INU 
2210 NUMBER=0 

2220 FOR 1=1 TO AO 

2230 IF 0BCI3 — 1 THEN NUMBER-NUMBER+1 

2240 IF NUMBER- I MAX THEN PRINT "NO, THANKS. - 

I AM ALREADY CARRYING ENOUGH !":G0T0 10B0 
2250 NEXT I 

22G0 GOTO 6000 : REM EXECUTION TAKE — 
2270 REM END OF INU TEST 

While this counter plays a passive role and the routine is 
called up only within the limits oF a precisely deFined 
action, other background checks not only restrict the 
player's Freedom oF action, but may even lead to the end oF 
the game . 
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4.8 AUAILABLE LIGHT 

This is an expression commonly used in some adventure 
programs to describe □ feature that causes additional 
difficulties that can drive the players to despair. 

For players who have a passion for adventure games the usual 
obstacles do not seem to be enough, and since it is a well 
known fact that there is nothing more difficult than life in 
the everyday world, the only thing that can be done to 
overcome this unbearable condition is to imitate this world 
more perfectly. 

Without light we are in the dark and shall hardly be able to 
see anything, yet act properly. If we add to this the fact 
that we are not in our bedroom, where this condition would 
be far less of an obstacle, but in a wild and fissured rocky 
landscape, any further step becomes a deadly risk. 

Naturally this is Just what we adventure producers want, and 
when we build the next lines into our adventures, we shall 
get additional pleasure from imagining the reactions of our 
Friends, to whom of course we want to present our work. 

Fortunately every adventure program can have this obstacle 
built in. Often big caves or underground systems of 
passageways are available, while other programs take place 
in a house; these are all places that need artificial 
lighting. Should it in Fact ever happen that the entire 
action takes place in the open air, the movement of the 
earth in relation to the sun must be followed. 
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In order to be able to realize a sunrise and sunset, all 
that it is necessary to do is to use another counter. 

First we determine how long the day or night is to last, 
using the player's inputs as a unit Df time. 

Let us assume that the night begins 50 moves after sunrise. 
This value will be Just as typical of any adventure as the 
number of attainable points, so the corresponding variable 
LI1 Camount of lights is initialized at the start of the 
program: 

IBB Ln=50 .- LISHT=-1 

Your extensive knowledge of the subject of adventure will 
allow you to interpret the variable LIBHT as a signal 
switch, in the sense that a -1 means as adequate amount of 
light for all actions, but absolute darkness. 

The two possible positions of this switch show the output 
routine of our driver whether the player can see anything or 
whether he has to tap his way forward in the dark: 

1131 REM N0 LIBHT 

1135 IF LIBHT THEN 1140 

1133 PRINT"I DO NOT KNOW EXACTLY WHERE I Atl . " 

1134 PRINT"IT IS TOO DARK TO SEE ANYTHINB . " 

1135 PRINT: PRINT: "I CAN NO LONBER SEE THE EXITS 
EITHER. ":B0T0 1330 

After line 1132 the output routines used so far will be used 
if there is any light. 
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If there is no light, lines 1133 to 1135 state in the usual 
may that there is nothing to be seen. 

Ue have only to see that the LIGHT switch is in its correct 
position; this has to be done after completion of the number 
of moves fixed with LM . 

The move counter cannot be used For this comparison 
operation, because a day-to-night change necessitates 
resetting the counter to zero; let us therefore introduce 
the variable LIGHT CHANGE CLUID: 

IBB LM-50 : LIGHT — 1 : LUI=0 
1080 t1DUE=nOUE+l : LU)=LU+1 
10B4 IF LUJ-Ln THEN GDSUB 3000 
E3S3 REM SUBROUTINE LIGHT SWITCH 
3000 IF LIGHT— 1 THEN LIBHT=0 
3010 IF LIGHT-0 THEN LIGHT— 1 
3020 LUI-0 
3030 RETURN 

At the beginning of any new round of inputs a check is made 
to see whether the duration CLt13 specified for any 
particular period has been reached. If so, the SWITCH 
subroutine is called up and the condition of LIGHT changed. 
No more than that is required to expose the adventurer to a 
day-and-night change, ufhich may necessitate searching for a 
lamp. 

In the case of Gold Fever however let us not be content with 
simulating the movement of the earth in relation to the sun, 
but make the event dependent on the possession of a lamp. 
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Bbcqusb of this we set the player the additional task of 
always keeping enough fuel available for the source of 
light. In our case the fuel will be oil, which the player 
can find in the bear's cave. In the cave he pours the oil 
into the bottle, which he must already have taken, and then 
into the lamp. 

Each filling operation resets the LIGHT CHANGE counter to to 
maximum value. 

To make the matter more complicated, the lamp will still 
contain some oil when the player finds it. If then he goes 
into the depths of thB mine without tapping up the lamp, he 
will be lost without any chance of rescue. One more step, 
and the adventurer stumbles and breaks his neck . 

Since we have not allowed for any darkness in the rest of 
the territory, the first step needed to realize this version 
is to alter the starting values. 

A switch is made only when the LIGHT CHANGE counter equals 
the contents of the amount of light. 

However, in order to allow the player an almost unlimited 
number of moves, we fix LM at zero and LUI at one, thus 
making certain that LUI can never equal LM: 

1B6 Lt1=0 : LIGHT — 1 : LUI=1 : Ll=20 

LI is added because the existing filling is supposed to be 
less than the subsequsnt toppings up. Ths rsmaining lines 
can bs taken from ths prsvious example. 
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This routine is activated only when the lamp is First lit. 
In addition to the output of "O.K." the execution of this 
command mill correctly initialize the counters as well 

11030 IF N-23 AND DBC233 — 1 THEN PRINT 
"O.K. - THE LAttP IS ALIBHT . " 
:Ln=Ll:LUJ=l:60T0 10B0 

The player nom has Bnough light available For the next 
twenty actions. By topping up the lamp, he can increase this 
Figure to Fifty: 

12010 IF N-23 AND □BCH3D=-1 AND PLCB3 

THEN L1-50:LI1-S0:LU-1:PRINT 
"O.K.": GOTO 10B0 

To make it possible to top up the supply oF Fuel with the 
lamp both on and oFf , we allocate the number oF moves that 
can now be made to the variables LI and LM . 

In case the player comes to the surface or puts out the lamp 
for other reasons we must save the present "tank contents": 

E10 DATA EXTINBUISH 

14000 IF N-23 AND QBC23D— 1 THEN Ll-Ltl-LW 
: PRINT "O.K.": BOTO 10B0 

Likewise these values must be saved when a game is stored: 

1B25 PRINT #2,PL:PRINT #2,L1:PRINT #2,LM: 

PRINT #2,LU 
1725 INPUT #2, PL: INPUT #2, LI: INPUT #2, LM: 

INPUT #2,LU 
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In this may we have made sure that the matter of the light 
really has to follow the course set out For it. 

However, in order to save the player the sudden, unpleasant 
surprise of an inevitable end, it is only fair to give him a 
warning, since if he should find himself in the depths of 
the earth while the oil is running out, he will no longer be 
able to save his skin. 

The following line will inform him of thB impending danger 
shortly before the fuel in the lamp runs out: 

13S0 IF LM-LU>-15 THEN PRINT "THE LIGHT FROM THE 
"LAMP IS GETTING WEAKER." 

By using another counter, you can make reactions dependent 
on the time elapsed . 
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4.9 INCIDENTS 

Earthquakes causing an avalanche of rocks, monsters that 
suddenly appear, the natural enemies of the central Figure 
in the adventure, or even trap doors that open at the wrong 
moment are other, universally popular things calculated to 
gBt the player off the right track. 

Nearly always such events are governed by chance and in two 
respects . 

A monster can liven up a certain space and tear off the 
player's head: 

1360 IF PL-10 THEN NSSC03-"THIS TIME I HAD NO - 
HONEY FOR THE BEAR." : GOTO 4500 

In Just the same way the trap door may only sometimes open 
and at other times not harm a hair of the player's head: 

1370 IF PL=E0 AND RNDC1D> .8 THEN MS$C0D= 

"THE GROUND CAUED IN UNDER (IE . " : GOTO 4500 

The third version is a combination of the elements already 
presented. It may also be assumed that the adventurer's 
enemies move around, so a certain section of the adventure 
world should be placed at the monster's disposal as a 
playground: 

13B0 IF CPL=13 OR PL=14 OR PL-163 AND RNDC1D> .8 
THEN nS$C0]-"THE BEAR AGAIN.": GOTO 4500 
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4.10 FROM TEXT TO GRAPHICS ADUENTURE 

In addition to the features discussed, adventure programs 
recently introduced usually have an outstanding graphic 
presentation. For each space in the adventurB there is a 
picture on the disk that when required is loaded into the 
computer screen memory . 

To produces such elaborate graphics and integrate them into 
our adventure system will not be possible for us without 
some aids. Even so at this point we are going to suggest a 
way of making your programs more attractive. 

Presumably you too have often regretted the fact that the 
Commodore 64 - Basic contains no commands for making Hires 
pictures. Therefore you have the choice of using a BASIC 
extension such as UIDEO BASIC from ABACUS SOFTWARE or the 
graphics characters that can be input via the keyboard. 

Both solutions necessitate a few small alterations to our 
driver program, since the outputs now have to be made at 
other points of the screen. 

Presumably you too will prefer to restrict the text output 
to the lower part of the monitor picture. For this purpose 
you must alter all lines of the driver that position the 
cursor C1070, 1080, 1090, 1130, 13903 and you must do that by 
poking the new line number into storage position 214. When 
using UIDE0 BASIC, select suitable co-ordinates far the TEXT 
command . 

You leave the structure of the particular graphics concerned 
to a number of subroutines called up from the driver. It 
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should however be noted that this printing routine does not 
have to be called up after every input made by the player, 
so we introduce a further check variable: 

1143 IF ALTO PL THEN PRINT CHR$C1473:60SUB 30000 
1145 ALT-PL 

After a space has been drawn its number is passed on to the 
variable ALT. If the player moves into another space, the 
condition in the line 1143 is fulfilled, the screen is 
cleared, and line 30000 is called up. This line selects the 
correct character routine on the basis of the space number: 

30000 ON PL S0SUB 31000 , 3E000 , 33000 
30010 RETURN 
31000 REM SPACE 1 

31999 RETURN 

32000 REM SPACE E 
31999 RETURN 

AftBr this the program is continued with the rest of the 
command . 
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5. THE ADUENTURE EDITOR 

The preceding chapters have provided you with the necessary 
tools For writing good adventures. Even so, although with 
our system we have developed a concept that for the 
development of different kinds of adventures necessitates 
only the programming of the data, conditions, and actions 
involved in the game concerned, a considerable amount af 
work is necessary before an attempt at a game can begin. 

The Jab would be simplified by using what is called an 
adventure generator, which, when all the necessary data have 
been input, leaves behind on the disk a finished, ready-to- 
play program. 

This solution still requires that the planning of the game 
has been completed, since before the generator can start 
the adventure producer has to prepare a list of all 
ROOMS , objects, verbs, etc and then input this data in a 
mammoth session. 

If any errors come to light while the program thus produced 
is being tested, they must be rectified in the usual way. 

Therefore a far more desirable solution would be one that 
immediately records Bvery individual thought of the author 
and moreover immediately checks it and improves it. 

This however can happen only if instead of producing a 
finished program a file is developed containing all the 
necessary data For a game to be played. The evaluation af 
this data then becomes the Job oF an interpreter containing 
the routines required For execution oF all kinds aF actions. 
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S.l THE FILE 

It has already been made clear that the actual adventure is 
now represented only by a file. This must contain all 
details necessary to a given game in a precisely defined 
order, so that the interpreter is able to read various 
adventures of different length. 

If we make a close examination of one of the adventures we 
have programmed, it is seen that many of the adventures 
already work interpretively . 

The verbs, 1 like the objects, are not called on directly to 
execute an action, but first two numbers are ascertained 
whose combination establishes exactly what input the playBr 
has made . 

As a prerequisite to this method of working, it was 
essential to read the words into variables, a process that 
instead of using the data lines can make direct use of the 
file on a disk C cassette D . 

Ue have already also ascertained the data typical of games 
and entered them into the program in lines 100 to S00 as 
characteristics of the adventure. 

Let us now consider what values from this block are 
necessary for an interpreter that, while not containing all 
the extras offered by one system, does offer a sufficient 
number of functions to make a game possible. 

First we find some information an the number of existing 
rooms, objects, and verbs. These limiting values prove 
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necessary For correct control of the reading-in loops and 
for the same reason mill be necessary far the interpreter. 
U)e shall also have to fix the exact number of all 
messages, since they mill be kept in variables. 

The same applies to the conditions and actions. In a field 
similar to the direction table PAC.3 we shall keep the 
playing data ready for reading so we add the variables AC 
and BC Caction codes and condition codes] to the list of 
characteristics . 

Now we must include the number of flags, since our 
interpreter must be able to store the score. 

As another value important to the game, we must include the 
player's starting position in the file. It is true, thB 
functioning of the system would still be ensured even if PL 
were not initialized at the start of the game, but then 
every adventure would always have to begin in space 1. At 
first sight there is no disadvantage to this, but Just 
imagine if after some slight change in the action the 
adventurer is to start the game at some completely different 
place. If then there is no PL variable that can be 
reinitialized accordingly, you must rewrite all space 
descriptions in accordance with the new planning. 

Ule cannot dispense with a score by paints. However, in 
order that the end of the game may be defined, we shall 
provide for an action that can evaluate the flags or the 
objects in the inventory. 

It is recommended that name of the author, the name of the 
adventure, and version number be kept in the file. 
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S.S THE STRUCTURE OF THE EDITOR 

The task of the editor is to make it possible for the user 
to input this data and, if necessary, alter it in a 
convenient and clear way . For this purpose a number of 
program lines will be called up through a menu. 

Here the sequence will to a certain extent be predetermined, 
for so long as the spaces do not yet exist, the objects 
cannot be placed. The menu screen for the construction of an 
adventure with the editor could look like this: 



ADUENTURE EDITOR VER i.O 






- DATA 


1 


- INPUT SPACES 


2 


- INPUT OBJECTS 


3 


- INPUT UERBS 


4 


- OBJECT POSITIONS 


5 


- CONNECT SPACES 


6 


- CONDITIONS & ACTIONS 


7 


- INPUT MESSAGES 


B 


-DISK ACCESS 


9 


- PROGRAM END 



PLEASE CHOOSE 



The user chooses thB function required by inputting the 
appropriate number, so, following the commands needed for 
the above picture, we provide the Jump line: 

210 ON A GOTO 1100,1200,1300,1400,1500, 
1600,4000,5000 
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S.S.I THE INPUTS 

Before ue start structuring the individual subroutines, the 
following mill help us to kBBp the amount of work involved 
as small as possible and the editor short. 

ThB user must always be informed of the data expected, so 
that he may make correct inputs. To help you we construct 
some simple input masks containing appropriate references. 
These masks will be largely identical, at least when the 
ROOMS, objects, and verbs are input, so a common program 
section is indicated for these Jobs. 

In order that this subroutine may give the correct 
instructions, the following titles must be made available 
before calling the subroutine: 

1100 PRINT CHRSC1473:T1S-"INPUT PLACES" 
:T2$— .ROOM N0.":T3S-"I AM" 

1105 Z-NS 
1110 GOSUB 510 

Following this the number of existing RDDHs is communicated 
to the variable Z and the input/output mask is called 
CLINE 11103. 

To structure the mask, the cursor must repeatedly be 
positioned at other points in the manner already explained. 

However, in order not to make the program difficult to read 
with a lot of POKE instructions, we provide for a further 
subroutine that sets the cursor to the requires line and 
column : 
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11000 POKE E11,ZE:P0KE 514,SP:SYS 58735 : RETURN 

433 REM I/O ROUTINE 

500 PRINT '*»"; 

510 ZE-OSP-0: GOSUB 11000: PRINT T1S 
550 Z-Z+l 

555 ZE-0:SP-55:G0SUB 11000:PRINT T5S;Z 
55B PRINT M3S 

557 ZE-16:SP=0:G0SUB 11000: PRINT M4$ 

558 ZE-16:SP"=0:GDSUB 11000: PRINTZ-1; : IF A=l THEN 
PRINT RESCZ-1D 

559 IF A=5 THEN PRINT OBSCZ-13 
5B0 IF A-3 THEN PRINT UERBSCZ-1D 

5B3 ZE-SO : SP-0 : GOSUB 11000: PRINT3S; : EI$='*" : INPUTEIS 
5B4 IF LEFT$CEIS,1J- ,, »"THEN GOTO 200 
5B5 IF A~S THEN ZE+25 : SP°0 : GDSUB 11000: INPUT 
"OBJECT NAME "jRNSCZJ 

570 ZE-SO : SP-0 : GOSUB 11000: PRINT M4S 

571 ZE=SS:SP=0: GOSUB 11000: PRINT M4S 
530 RETURN 

First the appropriate references are printed out. In lines 
558 to 5B0 a check made on the value in A that establishes 
what data to be input is involved. Then, as a reminder, the 
last previously input word is printed. 

Line 5B8 accepts the input, and the allocation to the 
correct variable is made within the calling subroutines 
Cwith the exception of the second object name, which is 
input in line 5653 . Lines 570 to 571 delete the input lines 
and so prevent values previously input from being taken at 
the next input. The function called up is ended by line 564 
after an asterisk has been input. The object and verbs are 
input as in this example. 
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5.2.2 SPACE CONNECTIONS 

First it is necessary to indicate all possible spaces, so 
that the user may input the correct space numbers. Since 
this function is necessary for placing the objects, uie 
construct a further subroutine C 12000 -120703. 

Then for all spaces the six directions are interrogated in 
turn and the inputs written directly into the corresponding 
position of the direction table: 

14S9 REM CONNECT SPACES 

1500 FOR Rl-12 TO AR 
1520 GOSUB 12000 

1530 PRINT "SPACE" ; Rl ; "LEADS NORTH INTO SPACE"; 

: INPUT DUCR1, 13 
1510 PRINT "SPACE" ; Rl ; "LEADS SOUTH INTO SPACE"; 

: INPUT DUCR1.23 
15B5 NEXT Rl 
1590 GOTO 200 

15S1 REM • END OF CONNECTIONS 
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5.S.3 ACTIONS & CONDITIONS 

Before we proceed to input the more important data, the 
conditions and actions, uie must develop a coding system. 

For keeping the data uie use a two-dimensional array. This 
time the rows are predetermined by the verbs and the columns 
by the objects. 

To make it easy to interpret the conditions, we decide on 
coding by letters. It is true numbers would have the 
advantage of speed in processing, but it is certainly more 
difficult to recognize the significance of a twelve digit 
figure than to interpret a string such as RF3SE2 if 
conventions have been observed as seen in the following 
illustrations . 

PLEASE INPUT ALL CONDITIONS FOR THE ACTIDN 
"EXAMINE DOOR" 



R - OBJECT IS IN THE SPACE 

I - OBJECT IS IN THE INUENTDRY 

N - OBJECT IS NOT AUAILABLE 

FX - FLAG X IS SET 

GX - FLAG X IS DELETED 

SXX - PLAYER IS IN SPACE XX 



OLD CODE — => 
CONDITIONS? RS02 
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These conditions are perfectly adequate when is comes to 
ensuring that the player's actions cannot be carried out 
except at the times prescribed by the plot. 

The actions provided for are also essentially in accordance 
with the ides from the previous chapters. The only new thing 
added is the commands Dxxy and E . 

The command D is intended to cause the interpreter to make 
visible an exit from the present space to space xx in the 
direction y. E ends thB same and informs the player of his 
victory . 

RSOe FULFILLED, THE FOLLOWING ACTION: 



U - DOOR DISAPPEARS 

I - DOOR COMES INTO THE INUENTDRY 

NXX - OBJECT XX REAPPEARS 

DXXY - PASSAGE TO RODM XX DIR. Y 

SXX - PLAYER TO SPACE XX 

FX - SET FLAG X 

LX - DELETE FLAG X 

MXX - OUTPUT MESSAGE XX 

T - PLAYER DIES 

E - END, PLAYER HAYING U1DN 



OLD CODE > 

ACTION? MOS 
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5.2.4 THE MESSASES 

These can be written into the correct variables without 
Further ado immediately on inputting. The program part 
provided turns out to be correspondingly short: 

3999 REM COMMUNICATIONS 

4000 PRINT "INPUT COMMUNICATIONS" 
4010 PRINT M3$ 

4020 AM-AM+1 

4030 PRINT AM: INPUT MSI CAM 3 

4040 IF LEFT$CMSSCAM3-"«" THEN AM=AM-1 : BOTO BOO 
4050 BOTO 4050 

40B0 REM END OF COMMUNICATIONS 

AM keeps a check on the number of messages input and, on 
completion of the function, must be reduced by one when 
inputting as asterisk. 
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5.2.5 DISK ACCESSES 

This is necessary For storing the file or for reloading it 
into the computer For reprocessing. In order that the File 
be available For rebuilding by the interpreter, even iF a 
game has not yet been Fully completed, additional data must 
be input beFore any storage operation. 

What is above all important to the interpreter is the word 
length, since the interpreter is not supposed to occupy any 
more memory than is necessary . 

As already mentioned, the player's starting space must be 
contained in the File, Just as the number oF Flags used 
becomes important to the interpreter as soon as the SAUE 
6AME function is called up. 

After these values have been input, all the data is placed 
on the disk as a sequential File. Cassette users are asked 
to note thB changes given in the previous chapter . 

Otherwise the listing oF the adventure editor has no 

peculiarities, so you should understand the method oF 

operation, due to to the individual blocks, and be able to 
expand the program as you wish. 
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5.3 THE ADUENTURE INTERPRETER 

Understanding the interpreter itsBlf will not cause you any 
difficulty, since, like our adventure programs, it is built 
up from three blocks. 

In the first part of the program the variables are again 
initialized uiith the data necessary for the game. Instead 
of the DATA lines with the relevant READ instructions we now 
use a data file produced with the editor. 

After you have selected the file required, it is evaluated 
and entered from line 50 to line BOO . 

The program block from line 1000 up to and including line 
2160 corresponds to the driver developed by us. No 
alterations are necessary. 

Entirely new however is the method of carrying out the 
actions . 

A single program, the interpreter, is supposed to enable 
different games to be played. Therefore it is not possible 
to use rigid structures always tailored to only one given 
situation. From a series of individual actions, those 
necessary to the particular case concerned are nicked out 
and carried out until the sum of their effects has achieved 
the same result. 

Ue pursue this strategy both when checking the conditions 
and when carrying out the actions. 



1B4 



ABACUS Software 



ADUENTURE BAHEUR I TER ' S HANDBOOK 



2200 FOR AB-1 TO LENCBCSCUN, N3 3 
2210 RD$CAB3-I1ID$CBCSCUN,N3,AB,13 
2220 NEXT AB 

First the final value of the loop is ascertained, this being 
dependent on the number of letters used for coding a 
particular action. Then the entire string is split up into 
the individual conditions, each of these being allocated to 
one element of the list BDSC 3 . 

A further loop now checks the fulfillment of each individual 
condition within a further loop. 

On coding, however, it was necessary to fix two or more 
parameters for some of the conditions . Thus code S 

C presence Df the player in a specific spacs3 requires an 
indication of ths space number, Just as in the case of F and 
6 the flag concerned has to be named. 

For these reasons we dispense with a For/Next loop and 
instead select a structure that allows us to increase the 
loop counter by differing values of our choice. 

In addition to this variable CK3 we use a further variable 
C RESULT 3 that after each execution of the loop is supposed 
to be logically truB C-13, if the condition has been 
fulfilled, and then on leaving thB loop will be logically no 
C03 if only ons condition is fulfilled. 

2300 X"0:ER-0 

Each execution of the loop must begin with raising the 
countsr. Immediately thBrsaftBr a check is made to see 
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uihether the final value, which of course is dependent on the 
number of conditions, has or has not been reached. 

5310 X-X+l 

2320 IF X-AB+1 THEN 2500 : REM ALL CONDITIONS CHECKED 

Depending on ER, it is now decided whether a reaction takes 
place or whether the player has to carry out further 
preparatory actions. 

2500 IF NOT ER THEN PR I NT "THAT CANNOT BE DONE AT 
PRESENT .": GOTO 10B0 

3333 REM ALL CONDITIONS FULFILLED 

4000 PRINT "O.K." 

Within the loop body the conditions are checked one after 
the other, the program line concerned being ascertained in 
the same way as, for example, the routines for handling the 
one-word commands within our driver program: 

2330 IF BDSCX3<>"R"THEN 2350 

5340 IF 0BCN3OSP THEN ER— 1 :S0T0 2310 

2350 IF BD$CX3<>"I"THEN 5370 

3360 IF 0BCN3O-1 THEN ER — 1 : GOTO 3310 

2370 IF BD$CX3<>"N" THEN 2330 

23B0 IF C0BCN3OSP AND 0BCN3O-13 THEN ER— 1 : 
GOTO 2310 

2330 IF BDICX3<>"S" THEN 2410 

5400 RlS-BDSCX+13+BDSCX+53:X-X+5: IF SP-UALCR1S3 

THEN ER— 1 : GOTO 5310 

3410 IF BD$CX3<>'"F" THEN 5450 

2420 IF FLCUALCBDSCX+13 3 3— 1THEN 2440 

2430 X-X+l : G0T05450 
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2440 ER— -1:X-X+1:G0T0 S310 

3150 IF BD$CXK>"G" THEN 2310 

2460 IF NOT FLCUALCB0SCX+13 D ] THEN 2480 

2470 X=X+1:G0T0 2310 

24B0 ER=-1:X=X+1:G0T0 2310 

2430 GOTO 2310 

Apart from lines 2400 to 2470 these lines mill not present 
you with any kind of problem. In line 2400 the next two 
elements of the condition code BD$ are also called upon in 
order to ascertain the space number. Then the counter is 
adjusted and, if necessary, the result variable set to true. 

The lines provided for evaluation of the flags work in a 
similar way. The program lines executing a command work in 
an identical manner. 

Within this block attention need be drawn only to lines 5200 
to 5B90, which, for example, make it possible to open a 
door. By manipulating these lines, the correct values are 
written into the direction table, so that on the one hand 
the new passage becomes visible C5220D, while on the other 
there is a way back if the player has moved into the new 
space C5230 to 52303. 

Lines 5500 to 5700 each contain a short subroutine that 
serves to determine a two-digit figure C5500D, a single 
figure C5B00D, or two figures C5700D . These values are 
needed for outputting the correct messages and the correct 
handling of the flags and for opening a passage to a 
specific flag in ane of the six directions. 

Please obtain the complete listings from the next chapter. 
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S. ADUENTURE PRACTICE 

This chapter mill not show you so much how you do something 
as what you can do . 

You will find the complete listings of two adventures that 
have been written using the program parts and routines 
developed in this book and also operating instructions for 
the software printed below. 

One of the adventures, is called Bold Fever, an adventure of 
which already quite enough has been said. The other is The 
Enchanted Castle, an adventure program for whose solution we 
shall not give any information of any kind. 

Unfortunately however the position is that when you have 
worked through this book you will be able to read the 
programs almost like set of instructions for solving them. 
Therefore it is recommended that you share the Job of typing 
them in with someone . 

This applies in particular to the program lines starting at 
number 5000, as here the action is programmed. 

Then you will find two shorter programs involving an 
adventure editor and its interpreter . 

Both programs together enable you to produce menu-controlled 
adventures and to play them from the very first step in the 
development of the story . 
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6.1 INSTRUCTIONS FOR PLAYINB ADVENTURES 

After you have started the program with RUN, the first 
descriptions and communications will appear on the monitor 
following the header picture and other general notes on 
playing . 

You must distinguish between the upper and lower halves of 
the screen: In the upper half you will find a description of 
the place in which you happen to be. Directly below all 
visible objects are listed, and another line indicates the 
direction in which you can move. The lower half is used for 
inputting your commands to the program and for outputting to 
you the information dependent on the execution of your 
input . 



6.1.1 YOUR INPUTS: 

Your usual inputs will consist of two words, a verb and an 
object. See that you use designations that are the same as 
output in the upper part of the screen. 

This does not however mean that following a communication 
such as 

I CAN SEE A RED DOOR. 
WHAT Ad I TO DD? 

Ynu react with OPEN RED DOOR . Usually the input OPEN DOOR 
will be perfectly adequate. 



170 



ABACUS Software 



ADUENTURE GAMEUIRITER ' S HANDBOOK 



In addition you will be allowed a Few Further inputs, 
commands known as one-word commands, which permit certain 
Functions that, while not being absolutely essential to the 
game, simplify it. 



6.1.2 THREE-DIMENSIONAL PROGRAMS 

Generally you can always move in the directions indicated. 
For this purpose it is sufficient to input the initial 
letter of the direction concerned: north, south, east, west 
CN,S,E,UI3 and up or down CD or D3 . 

These are however exceptions, and sometimes an input such as 
ENTER... can be used to good effect. 



6.1.3 MANIPULATION OF OBJECTS 

Naturally you want to da more in the imaginary world than go 
on a sightseeing tour: you want to act and solve a problem. 



For this purpose you must first discover the objects in this 
picture world. Then you can EXAMINE them, TAKE them, USE 
them, etc. Clf you are ever stuck, you should remember 
these words ! 3 . 

Let us assume you find a key. You think: "Great, but what 
am I to do with it?" 

In real life you would look at it, examine it carefully, and 
then decide whether you are going to leave it or whether you 
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consider it to be useful or even valuable and therefore 
whether you are going to take it with you. You should 
follouj this logical course of events in the adventure. 

Input: EXAMINE KEY. In answer you may get: IT IS THE KEY TO 
MY HCIUSE or: IT IS A CAR KEY or: IT IS MADE OF PURE GOLD . 
Naturally you would not leave any of these keys behind, but 
would take them all with you, so input: TAKE KEY. The 
communication then appearing on the screen is an O.K. CYou 
will often see this O.K.; it means that the adventure 
interpreter has understood and executed your input. 3. 
Furthermore the key will no longer appear in the heading 
line I SEE, since, as you have taken it , it is now in your 
coat packet Cor somewhere else on your person], but no 
longer in the space. 

If in the course of the game you have accumulated a lot of 
objects in your packets, you will probably lose count, so 
the interpreter offers you the possibility of making an 
INVENTORY. Whenever you want to know for BxamplB whBther 
you are carrying anything around with you that would help 
you to solve a particular prablsm, you simply input INU. 
the answer that immediately appears is: I AM CARRYING THE 
FOLLOWING ITEMS . A list of all the objBcts concerned than 
Fol lows . 
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6.1.4 INTERRUPTION OF PLAY: 

You will probably not bB able to solve an adventure in one 
day, and naturally you do not want to start all over again 
the next day. Therefore you will need the possibility of 
storing your progress so far . 

If you want to end a game temporarily, you simply input 
SAUE. The interpreter then asks you for a name under which 
it is to store the latest situation. 

Storing the current stage of your progress is actually 
recommended at sometimes. For example it could happen that 
you want to climb a step rockface, but are wearing the wrong 
sort of footwear. It is highly probable that you will fall 
and break your neck. Then you would have to start all over 
again and repeat all your inputs, a job that timely storage 
of the game would have saved you. 

B.l.S CONTINUING AN INTERRUPTED SAME: 

When you have stored the situation, you simply input LOAD. 
The interpreter then asks you under what name you stored the 
gamB and, following depression of the <RETURN> key, 
continues the game from the point at which it was 
interrupted . 
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B.l.B OTHER INFORMATION: 

When you play on adventure, you must first find out what 
sort of adventure it is. You have either to solve a 
problem, look for an exit or collect treasures. You should 
first EXAMINE everything and act as logically as possible 
Cthus to OPEN a LOCKED DOOR you first need a KEY, a CROWBAR, 
or something similar} . If you are on the right path, the 
interpreter mill let you knoui this with a message such as 
THAT CANNOT BE DONE AT PRESENT or I DO NOT UNDERSTAND WHAT 
YOU MEAN. 

These messages signify that the words used in your input 
have been understood, but not all the conditions necessary 
for execution of the action have yet been fulfilled Cfor 
instance the KEY is missing]. 

If a verb or the object is not understood, you will be 
informed and you should try to reach the same goal with 
other words . 

O.K. is a signal to you that an input has been understood 
□nd that a reaction has taken place. Mostly the lower 
half of the screen will display other messages that describe 
the reaction more accurately. 
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6.2 TIPS ON HOUI TO SOLVE AN ADVENTURE 

If you are completely stuck in a given situation, you can 
first try HELP. 

If you do not get more information by doing this, recall all 
the objects so far discovered. Almost certainly each object 
has a job allotted to it; to use it only to decorate □ spnce 
would involvB too much programming work. 

Here, a list of all words understood by the program would be 
useful; this could possibly be drawn up for you from the 
adventure itself, following the command UOCabulary. 

Equally useful would be a map on which you enter all the 
spaces with their connections, naturally not Forgetting the 
places where the objects were found. 

In the case of a maze, however, making such a map is not 
quite as easy as you may imagine. 

Instead of only spaces that really exist, one has often 
mapped three times that number. The only trick that can be 
used to avoid this is to deposit one object From the 
inventory in each space of the maze, thus making it 
impossible to get the individual locations mixed up. 

And as a final bit of advice: 

In between times store your game aver and over again! 
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B.3 PROGRAM LISTINGS 



ThB fallowing pages contain the program listings: 



1 . 



GOLDER FEUER 



2. 



THE ENCHANTED CASTLE 
ADUENTURE EDITOR 



3. 



4. 



ADUENTURE INTERPRETER 



The programs were listed with a TURBOPRINT GT printer 
interface in thB special listing mode. Please see Appendix 
A For a complete description of the listing codes. 

The listings in this book are available on a ready to run 
1541 Diskette. By purchasing this diskette, you can 
eliminate typing thes programs into your Commodore 64. 

ThB programs on the diskette have been fully tested and are 
available for S14.3S + S2.00 C$5.00 foreign!) postage and 
handling charge. 

To order send name, addrBss, and a check, money order or 
credit card information to: 



Or call CB1B3-H41-5510 for the name of your nearest dealer. 

Be sure to ask for the "Optional Diskette for the Adventure 
Gameiuriter 's Handbook". 



ABACUS SOFTWARE 
P.O. BOX 7211 
GRAND RAPIDS, MI 4S510 
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1 REM — BOLD FEWER, UERSION 1.0 — 

2 REM CCD 19B4 BY UALKQUIAK 

10 REM TITLE PIC 

TURE 

11 P0KE53HB1 ,11: P0KE53HB0 , 12: PR I NTCHRS C 1 
423 

12 PRINT"CCLR3" 

13 PRINT"CCM53 CQ1+ 

3Ccn+3CCM+3Ccn+3ccn+3CCM+3CCM+3CCM+3ccii+ 
3Ccn+3ccn+3ccn+3Ccn+3ccii+3ccri+3 

14 PRINT"CYEL3 CSH03CD1Y3 CSH03CSHP3 C 
CI1B3 CSH03CSH(13 CBLK3CSH03CD1Y3 CSH03CC 

my 3 ccri6>ccrin> csH03ccriY3 csH03CSHP3cai5 

3 ccri+ 3 ccn* 3 c cn+ 3 c ai+ 3 c cn+ 3 c cri+ 3 c ai+ 3 c cri+ 
3 

15 PRINT "CYEL3 C01H3CCHP3 CQ1H3CCI1I13 C 
CMB3 CCI1H3CCMI13 CBLK3CSHL3CCMP3 CSHL3CC 
MP3 CCHS3CCIW3 CSHL3CCI1P3 CSHL3CSHe3CCri5 
3 CCMM3CCHN3CCMN3 C01+3CCI1+3CCI1+3 

IB PRINT"CYEL3 CSHL3CSHB3 CSHL3CSHG3 C 
SHL3CCMP3 C5HL3CSHN3 CBLK3CCHS3 CSHL3CC 
MP3 CSHH3CSHN3 CSHL3CCMP3 CaiH3CSHt13CQ15 
3 CCIin3CCMN3CaiN3 CCn+3CCt1+3CCt1+3 
17 PRINT-CBLK3 CSHU3CSH»3CSH»3CSH»3CSH» 
3CSH»3CSH»3CSH'*3CSH*3CSH»3CSH*3CSH*3CSH« 
3CSH«3CSH»3CSH»3CSHI3 CCM53 CCI1+3CCI1+3C 
Ch+3 CCIH13CD1N3CCriN3 CCM+3CCI1+3CD1+3 

IB PRINT"CBLK3 CSH-3 CCMB3CC3 19B4 
CBLK3CSH-3CCM53 CCf1+3CCt1+3CCt1+3 C 

cnn3caiN3{ciiN3 ccri+3ccii+3ccii+3 

19 PRINT"CBLK3 CSH-3 CCM83BY 
CBLK3 CSH-3 CCH53 CCn+3CCP1+3CCn+3 C 

cnn>ccMN3CCHN3 ccm+3ccm+3ccm+3 

20 PRINT"CBLK3 CSH-3CCHB3 JQERB WALKOWIA 
KCBLK3CSH-3CCf1S3 CCt1+3CCt1+3CCri+3 C 
CMM3CSHB3CSHN3 ccii+3ccm+3ccii+3 

21 PRINT"CBLK3 CSHJ3CSH»3CSH«3C5H*3CSH» 
3CSH*3CSH*3CSH»3CSH»3CSH*3CSH*3CSH*3CSH* 
3CSH»3CSH»3CSH»3CSHK3 CCI153 CCn+3CCM+3C 
D1+3 CSH 3 CSHN3CSH»3CSH«3CCH+3CCn+3C 

cn+3 

22 PRINT" C0123 CSHU3CSH«3CSH«3CSH» 
3CSH»3CSH»3CSH*3CSH«3C5H*3CSH«3CSH«3CSH« 
3CSH*3CSH»3CSH*3CSH*3CSHI3CCn53CCri+3 

CSHN3 CCf1+3CCn+3CCH+3 

23 PRINT" CCM23 CSHU3 

CSH 1 3 CCM53CCI1+3 CSHN3 ccri+>ccn+3c 
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24 PRINT" CCM2J CSHU3 £ 
SHIJ CSHN>CCf1S>CCM+J CSHN> CCH+JCC 

55 PRINT" CCM2> CSHUJCSH»>CSH»JCSH«>CS 
H*>CSH»>CSH*JCSH*JCSH»JCSH»>CSH«JCSH»>CS 
H«>CSH*>CSH«>{:SH»3CSHn CSHN3 CCn5JCCM+J 

CSHNJCSH»JCSH»5CSH»>CSH*JCSH*JCSHN>CCt1 
+3CCM+JCCMO 

SB PRINT" CCM2J CSHO> CS 
HP>CSHN> CCnSJCCM+3 CSHNJ CSHNJ CCM 

57 PRINT" £CH5> CSHOXCMYJCCMYXICMYJCC 
MYKCMYJCCMYJ CCMY> CRUSK YEL> COFF> CCM5JC 
CMYXICMYJCCMYKCMYJCCMYXCMYiKCMYKSHP} 
CCMH5CCM55CSHN} CSHNJ 

SB PRINT"<:criHJ ccroo crusjcyelj 

CSHZ3CQFFJCCn2> CCMM> CCMH> 

23 PRINT"CCri2> CCMH3 rr 

mm> cshn> 

30 PRINT"CCH2> CCMHJ rr 
MM} CSHN3 

31 PRINT"CCM25 CSHLIXCMPJKCMPJCCMPMC 

npjccrip>ccMP>ccfipjccMPJccMP>ccnpjccnpjcc 
np>ccnpjccnp>ccnpjcsHe>csHN> 

32 PRINT"C DN5 CCMBJFROM THE CUI 
HTJ ABACUS CCMB3BDDKC DN>" 

33 PRINT" ' ADUENTURE SAMEWRITER *S HAN 
DBDOK ' " 

39 FOR 1-1 TO 10000: NEXT 

100 REM rHQP 

ACTERISTICS R 

101 : 
110 AR-31 
120 AO-44 
130 AU-11 

140 UIL-3 : AM-10 
150 SP-1 
1B0 AF-7 

170 U1M-60 

171 UIE-0 
1B0 ZU-0 

1B5 IM-4 : REM MAXIMUM LOAD TO BE CARRIE 
D 

IBB LM-0 :LI— 1 : LUI-1 : Ll-BO 

130 DIMRASCARJ.DUCAR.BJ.OBSCAOD, RNSCA03 

, OBCAOD,FLCAF3,MS$CAM3,UESCAU3 

133 : 

200 REM UERBS 
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201 DATA EXAMINE 

202 DATA TAKE 

203 DATA DROP 

204 DATA OPEN 

205 DATA USE 

206 DATA BREAK 

207 DATA LIGHT 

208 DATA FILL 

209 DATA ENTER 

210 DATA EXTINBUISH 

211 DATA SECURE 
2S9 : 

300 REM OBJECTS 2 

OS 

301 DATA "A LOT OF BIS TREES" , "TREES" , 1 

302 DATA "A LOT OF BIG TREES" , "TREES" , 2 

303 DATA "SOME BOULDERS" , "BOULDER" , 2 

304 DATA "A RAMSHACKLE WOODEN HUT", "HUT", 
3 

305 DATA "A DIRTY JAR", "JAR", 

306 DATA "HONEY" , "HONEY" , 

307 DATA "A WOODEN BOX" , "BOX" , 3 

30B DATA "A RICKETY SHELF" , "SHELF" , 

303 DATA "SOME EXPLOSIUES" , "EXPLOSIUES" , 

310 DATA "A MURKY HOLE IN THE GROUND" , "HO 
LE",0 

311 DATA "A RUSTY IRON CHEST" , "CHEST" , 

312 DATA"*SILUER COINS*" , "COINS" , 

313 DATA "A DARK CAUE" , "CAUE" , 5 

314 DATA "A FEROCIOUS LOOKING BEAR" , "BEAR 
»,0 

315 DATA "NUMEROUS SMALL BUSHES", "BUSHES" 
.4 

316 DATA "SEUERAL IRON BARS" , "BAR" , 6 

317 DAT A " "NUGGETS* " , "NUGGETS " , 5 

318 DATA "AN IRON BAR", "BAR", 
313 DATA A COAL CAR, CAR, 7 

320 DATA BROKEN DOWN RAILS , RAILS, 7 

321 DATA A ROPE, ROPE, 

322 DATA A HEAUY PICKAXE , PICKAXE , B 

323 DATA AN OLD LANTERN , LANTERN , B 

324 DATA THE END OF THE TUNNEL, TUNNEL , S 

325 DATA AND IRON HOOK, HOOK, 

326 DATA A SHAFT , SHAFT , 3 

327 DATA A WOODEN WALL, WALL, 10 
32B DATA MINERS RUBBLE , RUBBLE , 11 
323 DATA OLD SACKS , SACKS , 

330 DATA DAMP STONE WALLS , WALL, 13 

331 DATA AN EUIL SMELLING LIQUID, LIQUID, 
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17 

33E DATA A CORPSE , CORPSE, IB 

333 DATA »LUMPS OF SILUER* , SILUER , 

334 DATA *SOLD COINS*, COINS, 

335 DATA COBWEBS , COBWEBS , 20 
33B DATA A GOLDEN WALL , WALL , 22 
337 DATA A NOTICE BOARD , BOARD , 22 
33B DATA *60LD* , BOLD , 31 

333 DATA A SEA SHORE , SHORE , 30 

340 DATA THE LAKE , LAKE , 30 

341 DATA GOLDEN STONES , STONES , 

342 DATA FUSE , FUSE , 

343 DATA A MATCH, MATCH, -1 

344 DATA -, PARADISE, 
433 : 

500 REM SPACE DESCRIPTIONS 

501 DATA" IN THE WOOD .",1,1,1,2,0,0 

502 DATA "IN THE WOOD . " , 2, 1 , 1 , 3, O, 

503 DATA" IN THE WOOD BY AN OUERHANGING R 
OCK.", 0,4, 2, 0,0,0 

504 DATA" IN A CLEARING IN THE FOREST.", 3 
,0,5,0,0,0 

505 DATA" IN A CLEARING BY A HILLSIDE. ",0 
,0,6,4,0,0 

506 DATA "BY THE ENTRANCE TO AN OLD MINE . 
",7,0,1,5,0,0 

507 DATA IN THE ENTRANCE . ,B, 6,0, 0,0,0 

508 DATA IN A RECESS OF THE TUNNEL . ,3,7, 
8,10,0,0 

50S DATA AT THE END OF THE TUNNEL. , 0,8,0 
,0,0,0 

510 DATA IN A SIDE-TUNNEL ., 11 , O, 8, O, 0, 

511 DATA BY AND OLD DEMOLITION SITE., 0,1 
0,0,0,0,0 

512 DATA IN THE CAUE . , , 5, , 13, O, O 

513 DATA IN THE CAUE .,0,0,12,14,0,0 

514 DATA IN THE CAUE . , 0, 16 , 13, 15, 0, 

515 DATA IN THE CAUE .,0,0,14,0,0,0 

516 DATA ON A PATH . , 14, 0, 0, 17, , 

517 DATA IN A SIDE CAUE . , 0, , 16, 0, 0, 

518 DATA ON THE FOOR OF THE SHAFT., 0,0,1 
9,0,0,0 

513 DATA ON A WINDING PATH . , 24, 0, 20, IB , O 
,0 

520 DATA IN A WIDE CORRIDOR ., 0, 0, 21 , IS , 
,0 

521 DATA ON OLD DEMOLITION SITE, 22, 11 , 11 
,20,11,0 

522 DATA IN THE DOME OF A CAUE. ,0,21,0,0 
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,27,0 

523 DATA IN AN UNDERGROUND PARADISE .,0,0 
.0,0,0,0 

551 DATA ON A WINDING PATH . , 26 , 19 , 24 , 24 , 
24,24 

525 DATA ON A WINDING PATH. ,27,24,24,23, 
26,24 

526 DATA ON A WINDING PATH ., 27, 24, 26 , 27, 
27,24 

527 DATA ON A WINDING PATH . , 25 , 24 , 26 , 27 , 
26,24 

526 DATA ON A WINDING PATH . , 24 , 26, 26 , 27 , 
0,0 

523 DATA ON A WINDING PATH. ,0,27,30,27,0 
>0 

530 DATA BY AN UNDERGROUND LAKE. ,26,0,0, 
0,0,0 

531 DATA IN A SMALL CAUE . , 30, 0, 0, , , 

599 : 

600 REM INFORMATION 

601 MS$C13-"I CAN'T SEE ANYTHING SPECIAL 

602 MSSC 23-" I AM NOT THAT STRONG." 

603 MSSC 3 3- "WHAT DO YOU MEAN ?" 

604 MSSC 4 3- "THE BEAR TAKES THE HONEY AND 

M 

605 MSSC 5 3-" DISAPPEARS INTO THE DEPTHS 
F THE CAUE." 

606 MSSC 63- "HOW CAN I BREAK THE CHAIN ?" 

607 MSSC 73- "THE ROPES STILL HANGING FROM 
IT" 

606 MSSCBD-"THAT IT WAS PULLED ALONG WIT 
H." 

603 MSSC93-"WHEN GREED TAKES OUER, DEATH 
IS NOT FAR BEHIND . " 

698 : 

699 REM 2, TITLE: INTRODUC 

TION 

700 PR I NT " CCLR3 " : P0KE532B0 , : P0KE532B1 , 
:PRINT"CPUR3"jCHR$C143; 

710 PRINT"CSHW>ELCOME TO THE ADUENTURE . . 

» 

715 PRINTSPCC153"C DN3CYEL3CSH63CSH0XSH 

L3CSHD3CSHR3CSHU3CSHS3CSHH3C DN3" 

720 PRINT"CWHT3CSH*>CSH*>CSH»3CSH*>CSH»3 

CSH»3CSH»3CSH«3CSH»>CSH»JCSH»3CSH»3CSH»J 

£SH*3CSH«3{SH*3CSH»3CSH*JCSH*3CSH*3CSH»> 

CSH*3CSH«3CSH*3CSH»3CSH*3CSH»3CSH»>CSH«> 

CSH*3CSH»3CSH»3CSH»3CSH»JCSH»>CSH«>CSH»3 
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CSH*3CSH»3" 

755 PRINT"CSHS>OME DAYS ABO WHILE LOOKIN 
B FOR A " 

730 PR I NT " FORTUNE IN THE NEW WORLD, YOU H 
ET A " 

735 PR INT "CRITICALLY ILL OLD MAN TO WHOM 
YOU BAUE" 

740 PR I NT "HELP IN HIS LAST HOURS. " 
745 PRINT"CSHO)UT OF SRATITUDE HE TOLD Y 
OU ABOUT" 

750 PR I NT "HIS BOLDfllNE AND THE REST OF H 

IS " 

755 PRINT "WEALTH HIDDEN THERE." 

7B0 PRINT"CSHf1>ANY DANBERS FACED YOU ON 

THE WAY THERE,"; 

7B5 PR I NT "SOON YOU WILL HAUE REACHED YOU 
R BOAL" 

770 PR I NT "AND IT WILL BE SEEN WHETHER TH 
E OLD MAN" 

775 PRINT"WAS SPEAK I NB THE TRUTH OR HAD 
MADE IT" 

7B0 PR I NT "ALL UP." 
785 PRINT 

790 PRINT"CSH«>CSH*3CSH»3CSH*3CSH»3CSH»> 
<SH»>CSH»>CSH»3CSH*3CSH»3<:SH<*XSH*3CSH»} 
CSH»>CSH*>CSH»>CSH*>CSH»>CSH»>CSH*>CSH»> 
CSH«5CSH»J<:SH*>CSH»JCSH»>CSH»JCSH»3CSH»> 
CSH*>CSH«>CSH«JCSH*3CSH»>CSH*>CSH«JCSH»J 

» 

799 : 

BOO REM READ PLAYINB DAT 

A IN 

810 FOR 1-1 TO AU 

815 READ UERBSCI3:UERB$CI3-LEFT$CUERB$CI 
3.WL3 

880 NEXT I 

830 FOR OB-1 TO AO 

835 READ 0BSC0B3, RNSC0B3 , 0BC0B3 : RNSCOB 

3-LEFTSCRNSCOB3 ,WL3 

840 NEXT OB 

845 FOR RA-1 TO AR 

850 READ RASCRA3 

855 FOR RI-1 TO B 

BBO READ DUCRA.RI3 

8B5 NEXT RI 

B70 NEXT RA 

875 : 

8B0 PRINT"£ DN3 DO YOU WANT ADUIC 

E FOR" 
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BB5 INPUT" WHAT TO DO NEXT *';EI$ 

890 IF EI$-"Y" THEN SOSUB 300 
B95 GOTO 1000 
B9S 

900 REM 3, TITLE: INSTRUCTIONS 

910 PRINT"CCLR3";CHR$C143; 

9E0 PRINT" -64 - CSHA3DUENTURE CSHS3YST 

EM, CSHU3ERSI0N 1.0" 

930 PRINT" CCD 19B4 BY CSHUI>ALKO 

WIAK" 

940 PRINT" 



950 PR INT" C9H I IMAGINE A ROBOT WHOM YOU C 
AN CONTROL" 

951 PRINT"WITH A LOT OF COMMANDS. CSHI3 
AM THAT ROBOT" 

952 PR I NT "AND ON YOUR BEHALF SHALL EXPOS 
E MYSELF" 

953 PR I NT "TO THE DANGERS OF THE BOLDEST 
OF " 

954 PR I NT "ADUENTURES . " 

955 PRINT"CSHT30 ENABLE YOU TO MAKE ME A 
CT SENSIBLY, " 

956 PRINT"CSHI3 9HALL ACCURATELY DE9CRIB 
E THE" 

957 PR I NT "SITUATION IN WHICH I HAPPEN TO 
FIND " 

95B PR I NT "MY9ELF AT ANY GIUEN TIME. CSHU) 
3 HEN YOU" 

959 PR I NT "TELL ME IN TWO W0RD9 SUCH AS, 

» 

960 PR I NT " t 9HE 3CSHX3C SHA3 C SHM> C SH I > C SHN> 
CSHE3 CSHD3CSH03CSH03CSHR3, WHAT CSHI3 S 
HOULD DO." 

961 PR I NT "APART FROM THAT I UNDERSTAND T 
HE WORDS" 

96S PRINT" CSHI3CSHN3CSHU3ENTORY 
CSHS>CSHA>CSHUJCSHE> CSHLJCSH03CSHA3CS 
HD3 " 

963 PRINT" CSHU3CSH0JC9HC3ABULAR 
Y CSHH3CSHE3CSHL3CSHP3 CSHE3CSHN3CSHD3 

» 

964 PRINT" CSHS3CSHC3CSH03RE AND 
CSHI3CSHN3CSHS3TRUCTIONS " 

975 PRINT" 



9B0 PRINT"C DN3C DN3"SPCC113"CCSHP>RESS 
A KEY 3 " j 

9B5 GET EIS: IF EIS-"" THEN 9B5 
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990 PR I NT "CCLR} " : PR I NTCHRSC 142 3 : RETURN 
935 : 

999 REM BEGINNING ADUENTURE-DR 

IUER 

1000 PR I NT " CCLR> " : PRINTCHRSC 142 3 
1010 LE$=" 

» 

1020 DATA NORTH, SOUTH, WEST, EAST, UP, 
DOWN 

1030 FOR RI-1 TO G 
1010 READ RISCRI3 
1050 NEXT RI 

1070 PRINT"CCLR3":P0KE 532B0,0:P0KE 532B 
1,0:PRINT"CCI173" 

10B0 ZU-ZU+1 : LUI-LUI+1 : REM BEGINNING N 
EUI MOUE 

1084 IF LUI-LM THEN GDSUB 3000 

10B5 IF UJE-UIM THEN GOTO 4B00 

1090 P0KE211,0:P0KE214,0:SYS 5B732 

1100 FOR ZE-1 TO 10 

1110 PRINT LES 

1120 NEXT ZE 

1130 P0KE211,0:P0KE214,0:SYS 5B732 

1131 REM NO LIGH 

T 

1132 IF LI — 1 THEN 1140 

1133 PRINT" I DON'T QUITE KNOW WHERE I All 

n 

1134 PRINT" IT'S TOO DARK TO SEE ANYTHING 

1135 PRINT"C DN>I CAN'T SEE THE EXITS EI 
THER NOW . " : G0T01330 

1140 PRINT" I AMCSH >"; 

1150 PRINTRASCSP3 

11G0 PRINT"I CAN SEE " ; : GE-0 

1170 FOR 1-1 TO AO 

11B0 IF OBCIDOSPTHEN 1210 

1130 IF P0SC03+LENC0BSCI3 3+2O9 THEN PRI 

NT OBSCID;", " ; : GE— 1 : GOTO 1210 

1200 IF P0SC0D+LENC0BSCI]3+2>-39 THEN PR 

INT : GOTO 1130 

1210 NEXT I: IF NOT GE THEN PR I NT " NOTH I NG 

IN PARTICULAR" 
1220 PRINT"CLFT>CLFT> . " 
1230 PRINT LES 
1240 PRINT "CCni>I CAN GO "; 
1250 FOR RI-1 TO G 

1260 IF DUCSP.RI3-0 THEN GOTO 1310 

1270 IF P0SC03-14 THEN PRINT RISCRID;:GO 
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TO 1310 

12B0 IFPDSC03+LENCRISCRI 3 3<37 THENPRINT" 
, »;RI$CRI3i :SOTO 1310 

1SS0 IFPOSC03+LENCRI$CRI3 3>-37 THEN PRIN 

T",": PRINT RISCRI 3 ; : S0T01310 

1300 IF P0SC03<1B AND POSC03>2 THEN PRIN 

T", ";RI$CRI3; : SOTO 1310 

1310 NEXT RI 

1330 PRINT**." 

1 330 PR I NT " t UIHT > C SH« >CSH*3CSH»3C SH* 3 C SH» 
3CSH»3CSH«3CSH*3CSH»3CSH«3CSH»>CSH»3CSH* 
3CSH»3CSH*3CSH*3CSH»3CSH«3CSH*3CSH»3CSH» 
3CSH*3CSH»>CSH»>CSH»>CSH*3CSH«3<:SH*3CSH* 
3CSH»3CSH*3CSH*3CSH»>CSH»3CSH«3CSH»3CSH* 
3CSH»3CSH»3" 

1340 IF UIE-Itl THEN GOTO 4B00 

1350 IF SP-15 THEN MSSC03-"THE BEAR IS T 

HERE . " : F0RI-1T01000 : NEXT : G0T04500 

1360 IF LUI<-0 THEN LI-0 

1370 IFEX-ZU AND SP-20THENI1S$C03-"OUCH! - 

NOW IT'S SCRATCHED HE . " : G0T04500 

13B0 IF SP>1B AND 0BC233O-1 THEN LI-0 

1330 POKE SI 1,0 .-POKE £14,24: SYS 5B732:PR 

INT"CUIHT>"; : INPUT"U)HAT SHALL I DO";EIS:P 

RINT"CCt1B3"; 

1395 RL-LII-LUJ: IF C RL> OANDRL< 153 THEN PRIN 
T"IN";LM-LUI; "I10UES YOU WILL BE IN DARKNE 
SS" 

1400 IF LENCEI$3>2 THEN 1500 

1410 I FE I S- " N " ANDDU C SP , 1 3 <> OTHENSP-DU C SP 

, 1 3 : PR I NT "0 .K . " : G0T010B0 

1 420 I FE I S- " S '* ANDDU C SP , 2 3 <> OTHENSP-DU C SP 
, 23 : PR I NT "0 .K . " : G0T010B0 

1430 IFEI$-"U" ANDDU C SP , 3 3 <> OTHENSP-DU C SP 
, 33 : PR I NT "0 . K . " : G0T010B0 

1440 IFEIS- "E "ANDDU C SP , 4 3 <> OTHENSP-DU C SP 
,43:PRINT"O.K.":GOT010BO 

1450 IFEIS- " U " ANDDU C SP , 5 3 <> OTHENSP-DU C SP 
1,53 : PR I NT "O.K. ":G0T010B0 

1460 IFEIS- " D " ANDDU C SP , 6 3 <> OTHENSP-DU C SP 
,63 : PRINT "O.K.": G0T010B0 

1470 PR I NT "THAT DOESN'T LEAD ANYWHERE !" 
:60T0 1080 

1430 IF LENCEIS3>B THEN GOTO 2000 
143B : 

1439 REM START INVENTORY ~ 



1500 IF LEFTSCEIS,33<>"INU" THEN GOTO 15 
60 
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1510 PR I NT "I AH CARRYING THE FOLLOWING: " 
15B0 FOR 1-1 TO AO 

1530 IF 0BCI3 — 1 THEN PRINT 0BSCI3 
1510 NEXT I 

1550 GOTO 10B0 

1551 REM END INVENTORY 



1553 REM 

SCORE LIST170 
1560 IF LEFT$CEI$,33O"SC0" THEN GOTO IB 
00 

15G1 PRINT"OUT OF" ; WM; "POINTS YOU HAUE, I 
N'*;ZU; "MOUES, " 

15GB PRINT "GAINED";WE; "POINTS! WHICH CO 
RRESPONDS TO" 

1563 PRINT"A SCORE OF" ; WE/ZU; "POINTS . " 
1565 GOTO 1080 

1533 REM SAU 

E GAME 

1B00 IF LEFTSCEIS,43<>"SAUE" THEN GOTO 1 
700 

1B05 PRINT"CCLR3"SPCC103; : INPUT"C DN3C D 

N J ENTER NAME" ;E IS 

1610 IF LENCEII3>16 THEN 1605 

1615 PRINT"C DNJC DN3SAUING ";EI$ 

16S0 DPEN E.B.B, "SO: "+EI$+",S,W" 

16B5 PRINT#B,SP 

1 6B7 PR I NT#B , WE : PR I NT#B , L 1 : PR I NT#E , LM : PR 
INT#S,LW 

162B PRINT#S, ZU 

1630 FOR 1=1 TO AO 

1631 PRINT#B,0BCI3 
163B NEXT I 

1633 PRINT"." 

1635 FOR RA-1 TO AR 

1636 FOR RI-1 TO 6 

1637 PRINT#B, DUCRA.RI3 
163B NEXT RI 

1633 NEXT RA 
1640 PRINT"."; 

1645 FOR 1-1 TO AF 

1646 PRINT#S,FLCI3 

1647 NEXT I 

1648 PRINT"."; 
1650 CLOSE B 
1660 GOSUB 16B0 

1670 PRINT"CCLR3":G0T0 10B0 
1678 : 

1673 REM DISK ERROR 
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1BBO DPENl.B.lS 

1BB1 INPUT#1,A,B$,C,D 

16B2 I FA<> OTHENPR I NT : PR I NT " C DN3C DN3CRU 
S3 CRED>ERROR : " : PRINTBS : FORI-1TO 5000:NE 
XT : CLOSES 
1BB3 CLOSE1 

16B4 RETURN : REM END 

16SB 

1B93 REM LOAD GAM 

E 

1700 IF LEFTSCEIS, 43<> "LOAD" THEN GOTO 1 
BOO 

1705 PRINT"CCLR3"SPCC 103 "LOAD GA(1E":INPU 

T"C DN3C DN3WHAT IS THE GAME'S NAME";EIS 

1710 IF LENCEIS3>16 THEN 1B05 

1715 PRINT"C DN3C DN3L0ADING "EIS" "; 

1720 OPEN 2,B,E,EIS+'\S ) R" 

1725 INPUT#2,SP 

172B PRINT"."; 

1727 INPUT#2, WE: INPUT#2,L1: INPUT#2,LM: I 

NPUT#2 , LUI 

172B INPUT#2, ZU 

1730 FOR 1-1 TO AO 

1731 INPUT#2,0BCI3 

1732 NEXT I 

1733 PRINT"."; 

1735 FOR RA-1 TO AR 

1736 FOR RI-1 TO B 

1737 INPUT#2, DUCRA.RI3 
173B NEXT RI 

1739 NEXT RA 

1740 PRINT"."; 
1745 FOR 1-1 TO AF 
174B INPUT#2,FLCI3 

1747 NEXT I 

1748 PRINT"."; 
1750 CLOSE 2 
17B0 GOSUB 1BB0 

1770 PRINT"CCLR3":G0T0 10B0 

1771 REM END OF LOAD G 

AME 

1778 : 
179B : 

1799 REM UOCABULAR 

Y 

1B00 IF LEFT$CEII,33O"U0C" THEN GOTO 13 
00 

1B05 PRINT"CCLR3":PRINT"CYEL3I UNDERSTAN 
D THE FOLLOWING UERBS:C DN3C DN3" 
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1BOB RESTORE 

1B10 FOR 1-1 TO AU 

1B20 READ UO$:PRINT UO$ 

1B30 NEXT I 

1B40 GOSUB 1B30 

1B45 PRINT"CCLRr':PRINT"AND HERE AR THE 
OBJECTS THAT I KNOW:C DN3 " 
1B4S ZE-0 

1B50 FOR 1=1 TO AO 
1B55 ZE-ZE+1 

1BGO READ UO$,UO$,X:PRINTUCI$ 

1BB5 IF ZE-20 THEN BOSUB 1B90 

1BGB IF ZE-20 THEN ZE-1 : PRINT"CCLR3" 

1870 NEXT I 

1BB0 GOSUB 1B90:PRINT"<:CLR}":G0T0 10B0 
1B90 PRINTSPCC243"C 0N3PRESS SPACE BAR" ; 
18S5 GETEIS: I FE IS™" "THEN 1BS5 
1B9B PRINT"CCLR3" : RETURN 

1300 IF LEFTSCEI$,33<>"INS" THEN GOTO 19 
50 

1910 GOSUB 900 
1920 GOTO 10B0 

1950 IF LEFT$CEIS,33<>"END" THEN GOTO 19 
60 

1955 PRINT"CCLRJTHE AUTHOR WISHES YOU BE 
TTER LUCK TIME . C DN3C DNJC DN>C DN>C DN> 
" : END 

1959 REM HELPR 

EADY 

1960 IF LEFTSCEI$,43<>"HELP" THEN GOTD 2 
000 

1970 IFSP-4 AND 0BC103-0THEN PRINT "I NE 
ARLY FELL DOWN A HOLE . " : B0T010B0 

1971 IF SP=4 AND OBCllD-SP AND N0TFLC2D 
THEN PRINTMS$CB3:B0T010B0 

1975 PR I NT "YOU SHOULD LOOK BEFORE YOU LE 
AP":BOTO 1080 

1979 REM END HELP 

1990 : 

1999 REM ANALYSE THE INPU 

T 

2000 LN-LENCEIS3 
2010 FOR EL-1 TO LN 
2020 TESTS-MIDSCEIS.EL, 13 
2030 IF TESTSO" "THEN NEXT EL 
2040 EU$-LEFTSCEI$,UIL3 

2050 RL-LN-EL 

2060 IF RL<0 THEN 2090 

2070 E0$-RIEHTSCEIS,RL3 
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20B0 EDS-LEFTS C EOS, U)L 3 

3030 FOR UN-1 TO AU 

2100 IF EUS-UERBSCUN3 THEN 2130 

5110 NEXT UN 

S120 PR I NT "I DON'T UNDERSTAND THAT UERB! 

":GOTO 10B0 

2130 FOR N-l TO AO 

2140 IF EOS-RNSCND THEN 2200 

2150 NEXT N 

2160 PRINT"I DON'T KNOW THAT OBJECT ! " : SO 
TO 1080 
2163 : 
2170 REN 

21B0 REM EXAMINE , TAKE , DROP , OPEN , 
USE , DESTROY , LISHT , FILL 

2200 ON UN GOTO 5000,2210,7000,8000,3000 
, 10000, 11000, 12000, 13000, 14000, 15000 

2201 : 
2210 AN-0 

2220 FOR 1-1 TO AO 

2230 IF 0BCI3 — 1 THEN AN-AN+1 

2240 IF AN- IM THEN PR I NT "I CAN'T CARRY A 

NYMORE ! " : G0T01080 

2250 NEXT I 

2260 GOTO 6000 

2270 REM END OF ROOM TEST 

2333 REM LIGHT SWITCH 

3000 IF LI — 1 THEN LI-0 
3010 IF LI-0 THEN LI— 1 
3020 LW-0 
3030 RETURN 

3040 REM END OF LIGHT SECT 10 

N 

44SB : 

4433 REM END OF GAM 

E 

4500 PRINT"CCLR>":REM PLAYER DEA 

D 

4600 PRINT "THIS IS THE END! " : PRINT : PRIN 
TMSSC03 

4610 PR I NT "C DN3C DN5C DN>I AM DEAD !": 
PRINT 

4620 INPUT "SHALL I TRY AGAIN ";EI$ 
4630 IF LEFT$CEI$,13-"Y"THEN RUN 

4640 PRINT"CCLR>":END 

4641 : 
4733 : 

4B00 PRINT"CCLR>":REM PLAYER WINS 
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4805 EW-WE/ZU 

4B10 PR I NT "WELL DONE ! " 

4815 PRINT"YOU HAUE SOLUED THE ADUENTURE 

W 

4BE0 PRINT 

4B25 PRINT"IN";ZU; "MOUES YOU HAUE SCORED 

n 

4830 PRINT EW; "POINTS." 

4B3S PR I NT "YOU HAUE SOT A "j 

4B40 IF EU)< .5 THEN MS$C03-"R0TTEN" 

4845 IF EW>.5 THEN MS$C03-"AUERAGE" 

4B50 IF EW>1.0 THEN MS$C03-"G00D" 

4855 IF EUI>1.5 THEN MSSC03-"UERY SOOD" 

4BB0 PRINTM5SC03 ; " SCORE." 

4BB5 PRINT 

4833 END 

483B : 

4333 REM — EXECUTE PLAYERS 

tlOUE 

5000 IF 0BCN3OSP AND 0BCN3O-1 THEN SOT 

5300 : REM EXAMINE 

5002 IF N-l THEN PRINTMSSC 1 3 : G0T01080 

5003 IF N-3 THEN PRINTMSSC 13 : G0T01080 

5004 IF N-4 THEN PRINT" IN THE CORNER IS 
A SHELF . " : 0BCB3-SP: GOTO 1080 

5005 IF N-5 AND NOTFLC33 THEN PRINT "THE 
JAR IS FULL OF HONEY .": G0T010B0 

5005 IF N-6 THEN PRINTMSSC 13 : G0T01080 

5007 IF N-7 ANDOB C 3 3 -OTHENPR I NT "THE BOX 

HAS EXPLOSIVES IN IT . " : GOT010BO 

500B IFN-B AND OBC53-OTHEN PRINT"THERE I 

S A JAR ON THE SHELF .": OBC53-SP : G0T010B0 

5003 IF N-B AND 0BC53O0 THEN PRINT MSSC 

13:G0T010B0 

5010 IF N-10THEN PR I NT "THERE IS AN IRON 
CHEST IN THE HOLE . " : 0BC11 3-SP: B0T01080 

5011 I FN-1 1 ANDNOTFL C 1 3 THEN PRINT"IT IS 
LOCKED WITH AN IRON CHAIN .": G0T01080 

5012 I FN-1 1 ANDFL C 1 3 ANDNOTFL C 2 3 THENPR INT " 

1 CAN'T SEE ANYTHING FROM OUTSIDE ."• GOTO 
10B0 

5013 IF N-l 1 ANDFL C 1 3 ANDFL C23THENPRINT"IT 
'S FULL OF SILUER COINS .": OBC 123-SP : GOTO 
1080 

5014 IF N-12 THEN PR I NT "THAT 'S JUST WHAT 
I'M LOOKING FOR! ":60T01080 

5015 IFN-13THENPRINT"I HAUE DISTURBED A 
BEAR. ": OBC 143 -SP:G0T010B0 

5017 I FN-15THENPR I NT " I N THE BUSHES IS A 
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HOLE . " : OB C 103 -SP : G0T010B0 

5018 IF N-1B THEN PR I NT "THEY LOOK UERY S 
TRONG . " : G0T010B0 

5019 IF N-17 THEN PRINT" IT IS PURE BOLD 
! " : GOT010BO 

5020 IF N-1S AND OBC213-0 THEN PRINTMSSC 
7 3 : PR I NTtISS C 8 3 : OB C 2 1 3 -SP : S0T010B0 

5021 IF N-23 THEN PRINT" IT IS AN OLD OIL 
LAMP . " : B0T01080 

5022 IF N-24 THEN PR I NT "THERE IS A HOOK 
IN THE WALL.":0BC253=SP:B0T010B0 

5023 IF N-25 THEN PRINT"I CAN'T IT'S STU 
CK . " : B0T010B0 

5024 IF N-26THENt1SSC03-"IT IS UERY DEEP 
- AND I WAS TOO NEAR THE EDGE . " : G0T04500 

5025 IF N-27 THEN PR I NT "THAT CARPENTER W 
AS A REAL EXPERT" :G0T010B0 

5026 IF N-2B AND DBCN3-0THEN PR I NT "I CAN 
SEE TWO SACKS . " : OBC293-SP: G0T010B0 

5027 IF N-29 THEN PR I NT "THEY ARE FULL OF 
BOLD DUST . " : G0T010B0 

502B IF N-31 THEN PRINT"IT'S OILY AND ST 
ICKS TO YOUR HANDS .": GOT01080 

5029 I FN-32THENPR I NT " I T STINKS !" 

5030 I FN-32AND0B C 34 3 -OTHENPR I NT "THERE AR 
E GOLD COINS IN THE POCKET .": OB C 343 -SP : G 
0T01080 

5031 IF N-35 THEN PRINT"THERE AREN'T ANY 
COBWEBS AT ALL . " : 0BCN3-0: 0BC423-SP 

5032 IF N-35 THEN PRINT"IT IS A FUSE.":B 
0T01080 

5033 IF N-3B THEN PRINT "IT REALLY IS PUR 
E GOLD . " : B0T010B0 

5034 IF N-37 THEN PRINT" IT SAYS ON IT":P 
RINTM9SC93 : G0T010B0 

5035 IF N-42 THEN PRINT" IT LEADS UP TO T 
HE CEILING. ":G0T010B0 

5035 IF N-43 THEN PRINT"IT IS AN ORDINAR 
Y HATCH." 

5037 I FN-32ANDFL C 4 3 ANDOB C 33 3 <> -2THENPR I N 
T"IT IS ON SOME SILUER . " : 0BC333-SP :GOTO 
10B0 

5B99 PRINTnS$C13 :G0T010B0 

5900 REM OBJECT NOT HERE 

5901 IF N-l AND 9P=2 THEN PRINTMSSC 1 3 : GO 
T010B0 

5902 IFN-B AND OBC53 — 1 THEN PRINT"IT IS 
SWEET AND GOOD . " : G0T010B0 

5903 IF N-B AND 0BC53O-1 THEN PRINT"! H 
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AUEN'T ANY HONEY ! " : GOTOIOBO 

5504 IFN-9AND0BC73=SP0R OBC73 — 1THENPRIN 
T"IT LOOKS LIKE IT WILL BLOW UP!"-GOT010 
BO 

5505 IF M-9 THEN PRINT"THE EXPLOSIUE LOO 
KS DANGEROUS ! *' : GOTOIOBO 

5310 IFN-1ANDSP-5AND0BC143-5THENPRINT"I 
SEEtl TO UIHET HIS APPETITE I": GOTOIOBO 

5911 IF N-20 AND SP-22 THENPR I NTMSS C 9 3 : G 
0T010B0 

5912 IF N-44 AND SP-23 THEN (1SSC03 = »I All 
IN THE KINGDOM OF THE DEAD . " : G0T04500 

5990 PRINT "THERE IS NOTHING LIKE THAT H 
ERE . " : GOTO 1080 

6000 IF 0BCN3OSP AND 0BCN3O-1 THEN GOT 
6900 

6001 IF N-l THEN PRINT J1SS C 2 3 : GOTO 10B0 

6002 IF N-3 THEN PRINT (1S$C23:GOTO 10B0 

6003 IF N-4 THEN PRINT MSSC33:60TO 10B0 

6004 IF N-B THEN PRINT f1S$C23:60T0 1090 

6005 IF N- 1 1 THENPR I NT f1S$C23:G0T0 10B0 

6006 IF N-10THEN PRINT nSSC33:GOTO 10B0 

6007 IF N-13THEN PRINT riSSC33:GOTO 10B0 
600B IF N-1STHEN PRINT MS$C23:GOTO 10B0 

6010 IF N-5 THEN OBC53— 1 : PRINT"0 . K . " • GO 
T010B0 

6011 IF N-6 THEN OBC53 — 1:PRINT"0.K. "-GO 
T010B0 

6012 IF N=7 THEN OBC73 — 1 : PRINT"0 . K . " • GO 
T010B0 

6014 IF N-12 AND OBCN3-4 THEN PRINT"0 K 
":OBC123 — 2:RNSC123-" " : WE-WE+10 : G0T010B 


6015 IF N-l AND SP-5 THEN I1S$C03~"THE BE 
AR HAS KILLED HE . " : G0T04500 

6016 IF N-16 THEN PRINT"O.K. ":0BC183— 1- 
GOTOIOBO 

601 7 I FN-1 7ANDDB C N 3 =5ANDFL C 3 3 THENPR I NT "0 
• K. ":OBC173~-2:RN$CN3 = " " : UE-UIE+10 : G0T01 
OBO 

601B IF N-17 AND NOT FLC33 THEN f1SSC03-" 
THE BEAR IS ATTACKING ME . " : G0T04500 
601S IF N-12 AND DBCN3 — 1 THEN PRINT"NOU) 
I'UE GOT THE SILUER !": GOTOIOBO 

6020 IF N-17 AND 0BCN3— 1 THEN PRINT"NOU) 
I'UE GOT THE GOLD !": GOTOIOBO 

6021 IF N-19 THEN PRINTMSSC23 : GOTOIOBO 

6022 IF N=21 AND FLC43 THEN PRINT"O.K "• 
0BCN3=-1: GOTOIOBO 
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B0S3 IF N-22 THEN PRINT"0 .K . " : OBCND— 1 : G 
0T01080 

6034 IF N-24 THEN PRINT"0 .K . " : OBCND — 1:G 
0T010B0 

B0S5 IF N-25 THEN PRINT "IT'S TOO FAR IN 
THE ROCK . " : G0T010B0 

BOSB IF N-S7 THEN PR I NTMSS C 3 D : GOTO 1 OBO 
B027 IF N-2B THEN PR I NT "AND UIHAT SHALL I 

DO WITH IT?":G0T010B0 
B030 I FN-31 ANDOB C 5 D < > -1THENPR I NT "UJ I TH U)H 
AT ?":G0T010B0 

B031 IFN-31AND0BC5D— 1THENPRINT"0.K. - T 
HE JAR IS FULL.":FLC6D— 1:G0T010B0 

6032 IF N-32THENPR I NT "0 . K . - OH, UIHAT IS 
THAT ?":FLC5D — 1 : G0T010B0 

6033 IF N-33 AND OBCND-SP THEN PRINT"O.K 
. " : OBCND— 2: RNSCND-" " : UIE-UIE+ 1 : GOTO 1 OBO 

6034 IF N-34 AND OBCND-SP THEN PRINT"O.K 
. " : OB C N D — 2 : UIE-UIE+ 10 : RNS CND-" " : GOTO 1 OBO 
B035 I FN-35THENPR I NT "THERE AREN'T ANY CO 
BUEBS AT ALL, IT WAS" 

6036 I FN-35THENPR I NT "A FUSE . " : OBCND-0: OB 
C42D— 1:G0T01080 

6037 IF N-37 THEN OBCND — 1 : PRINT"0 . K .": G 
0T010B0 

603B IF N-41 THEN OBCND — 1 : PRINT"0 . K . " : G 
0T010B0 

6039 IF N-42 THEN OBCND— 1 : PRINT"0 .K .": G 
0T010B0 

B041 IF N-21 AND NOT FLC4D THEN PRINT" IT 

IS FASTENED TO THE CAR .": GOTO 1 OBO 
E042 IF N-23 THEN PRINT"0 . K .": OBCND— 1 : G 
0T010B0 

6043 IF N-59 AND 0BCND=SP THEN PRINT"O.K 
. " : OBCND— 2: RN$CND«°" " : UIE-UE+10 : G0T01080 

6044 IF N-3B AND OBCND-SP THEN PRINT"O.K 
. ": OBCND— 2:RN$CND-" " : UE-UE+10 : G0T010B0 
6300 IF N-9THENMSS COD- "THE EXPLOSIUE UIHE 
N I TOUCHED IT.":G0T04500 

6910 IF N-20 AND SP-22 THENPR I NTMSS C 9 D : G 
0T01080 

699B PRINT "I DON'T UNDERSTAND UIHAT YDU 
MEAN ! " : GOTO 1 OBO 

7000 IF N-16 AND DBC1BD — 1 THEN PRINT"0. 
K . " : OBC 1BD-SP: G0T010B0 

7005 IF OBCNDO-1 THEN PR I NT "BUT I DON'T 

HAUE ANYTHING LIKE THAT . " : G0T010B0 
70 10 IFN-6ANDSP-5THEN0BC6D-0:FLC3D — 1:PR 
INTMSSC4D : PRINTMSSCSD : 0BC14D-15: 0BC5D-14 
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:BOT010BO 

7020 IFN-SANDSP-5 THEN0BC53-14: FLC33— 1 • 
PRINTMSSC43 : PRINTMSSC53 : OBC 143-15: G0TD10 
BO 

7030 IF N-17 THEN 0BCN3-SP: WE-WE-10: PRIN 
T"0.K.":B0T010B0 

7300 □BCN3-SP:PRINT"0.K. ".G0T01080 
BOOO IF OBCNDOSP AND 0BCN3O-1 THENPRIN 
T"THER'S NOTHING LIKE THAT HERE . " : B0T010 
BO 

8005 IF N-4 AND SP-3 THEN PR I NT "THE HUT 
UIAS OPEN . " : GDTD10B0 

8010 IF N-5 THEN PRINT"0 .K . " : G0T010B0 
8020 IF N-ll AND NOT FLC13 THEN PR I NT "A 
CHAIN STOPS YOU . " : 60T010B0 
B0E5 IF N-ll AND FLC13 THEN PRINT*'O.K. - 
THE LID FOLDS BACK . " : FLC23— 1 : GDT010B0 
8030 IF N-23 THEN PRINT"0 . K . " : G0T010B0 
B035 IF N-23 THEN PRINT"0 .K . " : G0T01080 
8040 IF N-32 THEN PRINT" I *M SORRY !»-PRI 
NT"I'n NOT FRANKENSTEIN . " : G0T01080 
8045 IF N-36 THEN PRINT"WHAT ?":G0T01080 
B939 PR I NT "I DDN'T UNDERSTAND WHAT YOU n 
EAN . " : G0T010B0 

9000 IF OBCNDOSP AND 0BCN3O-1 THEN GOT 
3900 REM EXAMINE 

9020 IF N-19 THEN PRINT"HOUI AND WHY ?"-G 
0T010B0 

9030 IF N-21 THEN PRINT"HOU) AND WHY • G 
0T010B0 

9900 IF N-1B AND 0BC1B3— 1AND SP-4THEN P 
R I NT "THE CHAIN IS BREAKING .": FLC1 3 — 1 • GO 
T01080 

3999 PR I NT "I DON'T UNDERSTAND WHAT YOU M 
EAN . " : G0T01080 

10000 IFN-16ANDSP-4 AND OB C 1 8 3 THENPR I NT " 
THE CHAIN IS BREAKING .": FLC 1 3—1 : G0T0108 


10010 IF N-19 AND SP-4 AND 0BC193O-1 TH 
EN PR I NT "WHAT WITH ? " : FL— 1 : GDT01080 
10020 IF N-36 AND OBCB23— 1 THEN PRINT"0 
. K . " : DU C 22 , 1 3 -23 : G0T01080 

10030 IF N-21 ANDC0BCN3-SP OR 0BCN3— 13T 
HENPRINT"0 . K . " : FLC43 — 1 : G0T01080 
10040 IF N-27 AND 0BC223— 1 THEN PRINT"0 
.K.":DUC 10, 23-12 :G0T01080 

10050 IF N-27 AND 0BC223O-1 THEN PRINT" 
WHAT WITH ?":G0T010B0 

10393 PRINT"! DON'T UNDERSTAND WHAT YOU 
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MEAN . " : GOTO 1080 

11000 IF 0BC433O-1 THEN PRINT"I HAUE NO 
THING TO LIGHT IT WITH .": GOTO 10B0 
11010 IF N-B AND LZ<0 THEN PR I NT "THERE I 
S NO OIL IN THE LAUP !:G0T010B0 

11020 IFN-42ANDC0BC433 — 10R LIGHT3THENPR 
INT"SSSSSSSSSS" : FLC73 — 1 : EX-ZU+3 : 0BCN3-0 

11021 IF N-42ANDC0BC433 — 1 OR LI3THENDUC 
30, 23-31 : DUC31 , 1 3-30: G0T01080 

11030 IF N-23AND 0BC233 — 1 THENPR I NT "0 . K 
. - THE LAMP IS LIGHT.":LM-L1:LW-1:G0T01 
OBO 

11040 IFN-43 THEN PRINT"O.K. - THE MATCH 

IS GLOWIN6.":G0T010B0 
1193B PRINT"I DON'T UNDERSTAND WHAT YOU 
MEAN . " : G0T010B0 

12000 REM ACTION: 

FILL 

12010 IF N-23ANDCFLC63AND0BC233— 13THENL 

M-50:FLC63-0:LW-0: PR I NT "O.K.": G0T010B0 

12020 IF N-5 AND SP-17 THEN FLC63 — 1:PRI 

NT "THE JAR IS FULL . " : G0T01080 

12030 IF N-43 AND 0BC433— 1 THEN PR I NT "T 

HE MATCH IS GLOWING" : GOTO 1 OBO 

12SSB PR I NT "I DON'T UNDERSTAND WHAT YOU 

MEAN . " : G0T01080 

13000 REM ACTION: E 

NTER 

13010 IF N-13 AND SP-5 THEN SP-12: PRINT 
"O.K.":GOT010BO 

13S9B PR I NT "I DON'T UNDERSTAND WHAT YOU 
MEAN . " : G0T010BO 

14000 IF N-23 AND 0BCN3 — 1 THEN Ll-LM-LW 
: PRINT"0 . K . " : G0T01080 

14S3B PR I NT "I DON'T UNDERSTAND WHAT YOU 
MEAN . " : G0T01080 

15000 IFN-21ANDSP-9THENPRINT"0.K. ":0BCN3 
»9:DUC9,63-1B:DUC1B,53-9:G0T010B0 
1533B PRINT"I DON'T UNDERSTAND WHAT YOU 
MEAN . " : GOTO 1 OBO 

READY . 
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3 REM THE ENCHANTED CASTLE 

4 REtl CCD 13B4 BY J.WALKOWIAK 

8 REM" 

10 PRINT"CCLR>":POKE 532B0,0:P0KE 535B1, 
0: PRINT" CWHTD " : AR-26 : A0-4S : AU-B : SP-9 

20 PRINT" WELCOME TO THE ENCHANTED CAT 
LE. 

21 PRINT" UERSION 1.0 CCD 1SB4 BY W 
ALKOUIAK" 

25 PRINT"CCMO>CCMO>CCMOJCCMO>{:CMOJCCMO>C 
CMODCCMOCCMOJCCMODCCMODCCMODCCMODCCMODC 
CMODCCMODC CMO > C CMO > CCMO D C CMOJC CMO C CMO > C 
CMO D C CMO D C CMO J CCMO J CCMO D CCMO > C CMO J C CMO J C 
CMODCCMODCCMODCCMOCCMODCCMOCCMOCCMOC 

cnoD** 

30 PRINT: PRINT: PRINT" I AM THY FAITHFUL 
SERUANT. *':PRINT 

35 PRINT" COMMAND ME IN THE FOLLOW I NB WAY 
: ": PRINT 

40 PR I NT "EXAMINE TABLE, PUT BOTTLE" -PR IN 
T 

50 PR I NT "ETC. TO TELL ME WHAT TO DO.": PR 
INT 

BO PRINT" IF YOU WANT TO KNOW WHAT I AM C 
ARRYINB" : PRINT 

B5 PR I NT "USE THE COMMAND INUENTORY." 

EE PRINT»CCM0DCCM0DCCM05CCM0>CCM0>CCM0DC 

CM0:>CCM0:>CCnOCCMOCCMOCCM0}CCM0>CCMOC 

CMO D C CMO } C CMO D C CMO D C CMO D C CMO DC CMO D C CMO > C 

CM0DCCM0DCCM0DCCM05CCM0DCCMOCCM0DCCM0DC 

CMODCCMODCCMODCCMOCCMODCCMODCCMODCCMODC 
CMO J" 

70 PRINT: PRINT 

BO PRINT" ARE YOU READY ?" 

B5 BETAS: IFAS-""THENB5 

SO DIM RASCARD, DUCAR.SD, OBSCAOD, RNSC A 
OD, OBCAOD .MSSC11D 

101^DATA»IN ™E CASTLE LIBRARY . " , , 3, 0, 2 

102 DATA-IN THE STUDY .», , , 1 , , 

103 DATA" IN THE KITCHEN .",1,8,0.4,0,0 

104 DATA" IN THE CASTLE COURTYARD .", , 8 , 3 
,6,0,0 

105 DATA "IN ONE OF THE WATCHTOWERS . » 
,0,0,0,11 ' ' 

106 DATA" IN THE CASTLE COURTYARD .", 11 , , 
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4,0,0,0 

107 DATA "IN FRONT OF THE DRAWBRIDGE . '* , , 
0, 6,0,0,0 

10B DATA" IN THE BREAT HALL . " , 4 , B, 3, 9, 0, 

109 DATA" IN A PRIUATE CHAMBER . " , 9 , 9 , B , , 
0,0 

110 DATA "ON THE DRAWBR ID6E. ",0,0,7,12,0, 


111 DATA" IN THE CASTLE COURTYARD .", , B, 
,0,5,0 

US DATA "ON A FDREST PATH .", IB, IB, 10, 13, 
0,0 

113 DATA" IN THE ENCHANTED FOREST .",21,17 
,12,15,0,0 

114 DATA" IN A DARK CAUE . " , , IB, 14 , , , 

115 DATA" IN THE FOREST . " , 15, 15, 15, 16, 0, 

116 DATA" IN THE ENCHANTED FOREST .", 12 , 21 
,15,17,0,0 

117 DATA" IN THE ENCHANTED FOREST .", 13, 22 
,16,18,0,0 

118 DATA "AT THE FOOT OF A MOUNTAIN RANGE 
. " 14 17 19 

119 DATA "IN A'DARK CAUE . " , 25 , 0, IB , 19 , 0, 

120 DATA "IN THE CASTLE . " , 20 , 20 , 20 , 21 , , 

121 DATA" IN THE FOREST . " , IB , 21 , 20 , 21 , , 

122 DATA" IN THE BOG . " , 17 , , , 23 , , 

123 DATA" IN THE BOG . » , , , 22 , 24 , , 

124 DATA "BY A STREAM . " , 23 , 24 , , 23, , 

125 DATA "IN A DARK CAUE . " , 25, 19 , 25 , 14 , 14 
,0 

126 DATA" IN A SNAKEPIT. ",0,0,0,0,22,0 

401 DATA "COUNTLESS BOOKSHELUES" , "SHE" , 1 

402 DATA "A DESK" , "DES" , 1 

403 DATA "MY TEACHER 'UIC CHIP ' . ** , "UIC" , 2 

404 DATA "A COLANDER" , "COL" , 3 

405 DATA "A BOTTLE" , "BOT" , 

406 DATA "THE CASTLE WELL" , "UIEL" , 4 

407 DATA "BOOK", "BOO", 

408 DATA "SLEEPING WATCHMEN" , "WAT" , 5 

40S DATA "THE DRAWBRIDGE WINDING GEAR" , "G 
EA" 5 

410 ' DATA "CASTLE RESIDENTS" , "RES" , 8 

411 DATA "MY GUESTS " , 6UE " , 8 

412 DATA "PIECE OF PAPER" , "PAP" , 

413 DATA "A KITCHEN TABLE" , "TAB" , 3 

414 DATA "A BUTCHERS KNIFE" , "KNI ", 

415 DATA "A CROSSBOW" , "CRO" , 5 

416 DATA "A KEY", "KEY", 

417 DATA "A HEAUY IRON GATE" , "GAT" , 6 
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41B DATA "A DRAWBRIDGE , " , "DRA" , 7 

413 DATA "NOTHING IN PARTICULAR", "NOT" 9 

420 DATA "NOTHING IN PARTICULAR" , "NOT" 11 

421 DATA "TREES" , "TRE" , 12 

422 DATA "TREES" , "TRE" , 13 

423 DATA "A LOT OF CABINETS" , "CAB" , 14 

424 DATA "NOTHING IN PARTICULAR" , "NOT" 25 

425 DATA"TREES" , "TRE" , 15 

426 DATA "TREES" , "TRE" , IB 

427 DATA "TREES" , "TRE" , 17 

42B DATA "A LARGE MAGPIE" , "MAG" , 17 

429 DATA"AN ENTRANCE TO A CAUE" , "CAU" , IB 

430 DATA"GLEAt1ING GOLD METAL" , "GOL" , 19 

431 DATA "OLD ARMOR" , "ARM" , 

432 DATA"NOTHING IN PARTICULAR" , "NOT" , 21 

433 D AT A " BOG " , " BOG " , 

434 DATA "MUD" , "MUD" , 23 

435 DATA "SNAKES EGGS", "EGG" ,26 

436 DATA "TREACHEROUS GROUND " , "GRO " , 23 

437 DATA "SPRING OF BUBBLING WATER" , "SPR" 
,24 

43B DATA "A MDAT" , MOA" , 10 

439 DATA "A DARK CORNER " , "COR " , 20 

440 DATA "COBWEBS" , "COB" , 

441 DATA "A BOTTLE WITH BLUE WATER IN IT" 
, "WAT",0 

442 DATA"N0THIN6 IN PARTICULAR" , "NOT" , 19 

443 DATA "A SNAKEPIT", "PIT", 22 

444 DATA "SNAKES", "SNA ",26 

445 DATA "A STONE ALTER" , "ALT" , 25 

BOO DATA EXA,TAK,REA,OPE,DES,USE,FIL,PUT 

900 MSSCO]-"I DON'T UNDERSTAND WHAT YOU 
MEAN . " 

901 MS$C13="I CAN'T SEE ANYTHING SPECIAL 

902 MS$t2]-"I'M NOT STRONG ENOUGH." 

903 MSSC33-"THEY SEEM TO BE FAST ASLEEP. 

904 MSSC4D="THAT WOULD BE SILLY." 

905 MSIC5D="I CAN SEE SOME SHAKY WRITING 

» 

90B MSSC6D="THE MAGPIE'S STOLEN SOMETHIN 
G ! " 

907 MSSC7D-"THERE'S SOME OLD ARMOR." 
90B MS$CB3="HE'S GOT A PIECE OF PAPER IN 
HIS HAND." 

SOS MSSC33-"HE'S GOT A KEY IN HIS HAND." 
910 MSSt 10] -"THERE'S AN INSCRIPTION- IT 
SAYS : " 
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Sll I1SSC113 = "ACCEPT OUR SACRIFICE AND BE 

GRATEFUL TO US." 
350 FOR RA-1 TO AR: READRASCRA3 
352 FOR RI-1 TO B: READDUCRA, RI 3 
354 NEXT RI : NEXT RA 

361 FOR OB-1 TO AO: READ 0BSC0B3 , RNSC0B3 
, 0BC0B3 : NEXT OB 

370 FOR 1-1 TO AU: READ UE$CI3:NEXT I 
1010 LE$- " 

» 

1020 DATA NORTH, SOUTH, UIEST, EAST, UP, 
DOWN 

1030 FOR RI-1 TO 6 : READ RI$CRI3:NEXT RI 
1040 C0-RNDC13 
1070 PRINT"CCLR3" 

1080 PRINT"{CM43 " : P0KE211 , 0: PDKE214 , 0: SY 
S5B732 

1030 P0KE211,0:P0KE214,0:SYS 5B732 

1100 FOR 2-1 TO 10:PRINTLE$:NEXT Z 

1130 P0KE211,0:P0KE214,0:SYS 5B732 

1140 PRINT"I AH "; 

1150 PRINTRASCSP3 

11B0 PRINT" I CAN SEE "; 

1170 FOR 1=1 TO AO 

11B0 IF 0BCI3OSP THEN 1200 

11B5 IF POSC03+L.ENCOB$CI3 3+2<-33 THEN PR 

INT 0B$CI3;'\ " j : BOTO 1200 

1130 IF POSC03+LENCOBSCI3 3+2>33 THEN PRI 

NT 

1136 BOTO 1185 
1200 NEXT I 

1205 PRINT"CLFT3CLFT> . " 
1210 PRINT 
1215 PRINT 

1220 PR I NT "I CAN 60 "j 
1230 FOR RI-1 TO 6 

1240 IF DUCSP, RI 3-0 THEN GOTO 1250 

1245 IFPOSC03-14THENPRINTRISCRI 3 ; : G0T012 
50 

1246 IFP0SC03+LENCRISCRI 3 3<37 THENPRINT" 
, ";RISCRI3 ; : G0T01250 

1247 I FPOS C 3 +LEN CRISCRI 3 3> 37THENPR I NT : P 
RINTRISCRI 3 ; : 60T01250 

1243 IFPOSC03<16 AND POSC03>2 THENPRINT" 
, "jRI$CRI3; :60T01250 
1250 NEXT RI 
1260 PRINT"." 

1270 PRiNT"ccno3tcno3ccno>{:cno3ccno3ccno 
3Ccno>ccno3ccna3CCMO>ccMO>ccnojccno3CCMO 



193 



ABACUS Software 



ADUENTURE GAMEUIRITER 'S HANDBOOK 



> c cmo > c cno> c cnoj c cno 3 c cno> c cno 3 c cno > c cno 
jccnojcaio?ccna>ccna3ccno>ccno>cc(i03ccno 
>ccno>ccno>ccno>{cno>tcno>ccno>ccno><:cno 
>ccno>» 

1275 IFSP-25THENS0SUBB050 

1280 P0KE211,0:P0KE214,24:SYS 5B732:PRIN 
T"CIDHT3"; : INPUT"WHAT SHALL I D0";EI$:PRI 
NT"CCMB3"; 

12B5 IFSP-17THENG0SUBS040 
12BB IFSP-23THENB0SUBS0B0 
12B7 IFSP-15THENS0SUBS100 

1230 I FE I S- "N "ANDDU C SP , 1 3 <> OTHENSP-DU C SP 
, 1 3 : PR I NT "0 . K . " : B0T01080 

1 300 IFEIS- "S "ANDDU C SP , 2 3 <> 2THENSP-DU C SP 
, 2 3 : PR I NT "0 . K . " : G0T010B0 

1310 I FE I $= "U "ANDDU C SP , 3 3 <> OTHENSP-DU CSP 
, 33 : PRINT"0 .K . " : G0T010B0 

1320 IFEIS- " E " ANDDU C SP , 4 3 <> OTHENSP-DU C SP 
,43 :PRINT"O.K. ".-GDTOIOBO 

1330 I FE I $-" U " ANDDU C SP , 5 3 <> OTHENSP-DU C SP 
,53 :PRINT"O.K. ":B0T01080 

1340 IFEIS- "D "ANDDU CSP, B3<> OTHENSP=DU C SP 
, 63 : PR I NT "0 .K . " : G0T010B0 

1350 IF LENCEIS3<3 THEN PR I NT "THAT DOESN 

'T LEAD ANYWHERE ! " : BOTO 10B0 

13B0 IF LEFT$CEIS,33<>"INU"THENG0T01330 

1370 PR I NT" I 'M CARRYING THE FOLLOWING:" 

13B0 F0RI-1T0A0: IFOBC I 3 — 1THENPRINT0BSC I 

3 

1330 NEXT I 

1400 B0T010B0 

1330 IFSP-15THENG0SUB3100 

2000 LN-LENCEIS3 

2010 FOR EL-1 TO LN : TE$-niD$CEI$ , EL , 13 

2030 IF TES<>" "THEN NEXT EL 

2040 EUS-LEFTSCEIS, 33 : RL-LN-EL : IFRL<OTHE 

N2070 

20B5 E0S-RIGHTSCEIS.RL3 

2066 EOS-LEFTS CEOS, 33 

2070 FOR UN-1 TO AU 

2080 IF EUS-UESCUN3 THEN 2110 

2030 NEXT UN 

2100 PRINT"I DON'T UNDERSTAND THE UERB! " 

:GOTO 1080 

2110 FOR N-l TO AO 

2120 IF E0S-RNSCN3 THEN 4000 

B130 NEXT N 

2140 PR I NT "I DON'T UNDERSTAND THE OBJECT 
! " : GOTO 10B0 
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4000 ON UN GOTO 5000,5500,5600,5700,5800 
,5300,6000,6100 

5000 IF 0BCN3OSP AND 0BCN3O-1 THEN 60T 
50B0 

5001 I FN-16ANDSP-20AND0B C 31 3 <> - 1 ANDOB C 40 
3 <> - 1 THENPR I NTMSS C 7 3 : OB C 3 1 3 -20 : OB C 40 3 -20 
: G0T010B0 

500S IF N-10AND SP-BTHEN PRINT MSSC33:BO 
T010B0 

5003 IF N-ll AND SP-7 THEN PRINT MSS C 3 3 : 
60T010B0 

5004 IF N-4 ANDCSP-3 OR 0BCN3— 13 THEN 
PRINT MSSC13 :G0T01080 

5005 IF N-5 ANDCSP-3 OR 0BCN3— 13 THEN 
PRINT MSSC13:G0T010B0 

5006 IF N-l AND SP-1 THEN PRINT nS$C13:G 
0T010B0 

5008 IF N-3 AND SP-2AND0BC 123-OTHENPRINT 
riSS C B 3 : OB C IS 3 -5 : G0T01060 

5003 I FN-3ANDSP-2THENPR I NTMSS C 1 3 : G0T010B 


5010 I FN-6AND0B C 5 3 -OTHENPR I NT "THERE ' S A 
BOTTLE IN THE WATER .*': OBC53-SP: 60T010B0 

5011 I FN-7AND C SP- 10R0B C N 3 — 1 3 THENPR I NT " I 
T'S A BOOK ABOUT MAGIC POTIONS .": G0T010B 


5012 I FN-BANDSP-5 ANDOB C 16 3 -OTHENPR I NTHSS 
C33:OBC163-SP:GOT010BO 

5013 IF N-3 AND NOT FLC13 THEN PR I NTHSS C 
1 3 : G0T010B0 

5014 IF N-3 AND FLC13ANDSP-5 THENPR I NT "I 
T WON'T G0/":GDT010B0 

5015 I FN- 1 2 ANDOB C 1 2 3 — 1 THENPR I NT "THERE ' S 
SOMETHING WRITTEN ON IT . " : 0BC163-SP : GOT 

010B0 

5016 I FN- 1 2AND0B C123-2THENPRINT"I 'LL HAU 
E TO PICK IT UP FIRST.":G0T010B0 

501 7 I FN-13AND0B C 1 4 3 -OTHENPR I NT " THERE ' S 
A KNIFE ON THE TABLE. ":OBC 14 3-3: G0T010B0 
501B I FN-2AND COBC73-10ROBC73-03 THENPR I NT 
"THERE'S AN OLD BOOK ON IT . " : OBC73-1 : GOT 
01080 

5013 IFN-14 AND C0BC143-SP OR OBC143— 13 
THENPR I NT "THE BLADE'S UERY SHARP" : G0T010 
BO 

5020 I FN- 15 AND C OB C N 3 -SPOROB C N 3 — 13 THENPR 
I NTMSS C 1 3 : G0T010B0 

5021 I FN-16AND C OB C 163 — 10R0B C 16 3 -SP 3 THEN 
PRINTMS$C13:G0T010B0 
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5022 I FN-1 7ANDSP-BANDFL C 3 3 <> -1THENPR I NT " 
IT'S CLOSED .": SOTOIOBO 

5053 I FN- 17 ANDSP-BANDFL C 3 3 — 1 THENPR I NT " I 
T'S WIDE OPEN .": GOTO 1080 

5024 I FN-1 B ANDSP-7ANDFL C 1 3 THENPR I NT "DRAW 
BRIDGE'S BEING LOWERED .": DUC7, 43-10: GOTO 
1080 

5025 I FN- 1BANDSP-7ANDN0TFL C 1 3 THENPR I NT "T 
HE DRAWBRIDGE IS UP . " : G0T01080 

502B IFN-21THENPRINTMSSC13: GOTOIOBO 
5027 IFN-23ANDSP-14G0T010000 
502B IFN-2BANDSP-17THENPRINT"IT'S REALLY 
A MARVELLOUS COPY . " : G0SUB3040: GOT010BO 

5023 IFN-23ANDSP-1BTHENPRINT"THERE'S A F 
UNNY SHELL COMING FROM IT . " : G0T010B0 

5030 I FN-30ANDSP- 1 SOROB C 30 3 — 1 THENPR I NT " 
IT'S USELESS METAL . " : GOTO 1080 

5031 I FN-31 AND t SP-200R0B C 31 3 —1 3 THENPR I N 
TMSSC13:G0T010B0 

5032 I FN-35AND C SP-2B0R0B 1 35 3 — 1 3 THENPR I N 
TMSS C 1 3 : G0T01080 

5033 I FN-3BANDSP-23THENPR I NT " I T DOESNT'T 
LOOK LIKE IT WILL BEAR MUCH .": GOTO 10B0 

5034 IFN-37ANDSP-24THENPRINT"IT'S THE FA 
MOUS BLUE WATER .": G0T010B0 

5035 IFN-3BANDSP-10THENPRINTMS$C13:GOT01 
080 

503B I FN-40AND C SP-200R0B C 40 3 —1 3 THENPR I N 
TMSSC13: GOTOIOBO 

5037 I FN-43THENSP-2B : PR I NT "0 . K . " : G0T010B 


503B IFN-45 THENPR I NTMSS C 1 3 : PR I NTMSS C 1 1 
3 : G0T01080 

50B0 IFN-21THENPRINTMSSC 1 3 : G0T010B0 

508 1 I FN-3S ANDSP-20AND0B C3130-1 ANDOB C 40 
3 <> - 1 THENPR I NTMSS C 7 3 : OB C 3 1 3 -20 : OB C 40 3 -20 
:G0T01080 

5082 I FN-33ANDSP-23THENG0SUB90B0 : PR I NT "T 
HERE'S A SPRING IN THE EAST . " : G0T01080 

5083 I FN- 1 BAND C SP-230R0B C 34 3 — 1 3 THENPR I N 
T"IT'S MEDICINAL MUD . " : G0SUBS080 : G0T0108 


509B PR I NTMSS C 1 3 : GOTO 1 OBO 

5500 I FOB C N 3 <> SPANDOB C N 3 <> - 1 THENG0T055B0 

5501 I FN- 1 THENPR I NTMS C 2 3 : G0T01080 

5502 IFN-BTHENPRINTMSC23 .-GOTOIOBO 

5503 IFN-17THENPRINTMSSC23 : GOTOIOBO 

5504 IFN-2 THENPRINTMSSC43 : GOTOIOBO 

5505 IFN-3 THENPR I NTMS C 4 3 : GOTOIOBO 
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5506 IFN-B THENPRINTM5SC43 : G0T010B0 

5507 IFN-10THENPRINTMSSC43 : S0T010B0 
550B I FN- 1 1 THENPR I NTMSS C 4 3 : G0T01 OBO 
5503 ZA-O: F0RI-1T0A0: IFDBC I 3 — 1THENZA-ZA 
+l:IFZA-4 THENG0T05533 

5510 NEXT I 

55 1 1 I FN-5THEN0B C N 3 — 1 : PR I NT " . K . " : G0TD1 
OBO 

5512 IFN-7THEN0BCN3 — 1 : PRINT"0 . K . " : G0T01 
OBO 

5513 IFN-12THENOBCN3— 1 : PRINT"0 .K . " : GOTO 
10B0 

5514 IFN-15THEN0BCN3— 1 : PR I NT "0 .K . ** : GOTO 
1080 

5515 IFN-16THENOBCN3— 1 : PRINT"0 . K . " : GOTO 
10B0 

551B IFN-14THEN0BCN3— 1 : PRINT"O.K. " : GOTO 
10B0 

5517 I FN-3THENPR I NTMSS C S 3 : G0TQ10B0 
551B IFN=23THENPRINTMS$C23 : G0T01080 
5513 IFN-2BTHENPR INT "WHAT SHALL I CATCH 
IT WITH?": G0SUBS040 : GOTO 1 080 

5520 I FN" 1 BTHENPR I NTMSS C 3 : G0T010B0 

5521 I FN-30THENQB C N 3 ~- 1 : PR I NT " . K . " : GOTO 
1080 

5522 IFN-31THENOBC313— 1:PRINT"I *UE PUT 
THE ARMOR ON . " : GOTO 1080 

5523 IFN-35AND0BC313— 1THENPRINT"0.K. ":0 
BC353— 1 : B0T01080 

5524 I FN-35 ANDOB C 3 1 3 <> - 1 THENG0T08000 

5525 IFN-36THENPRINTMSSC43 :G0T01080 

5526 I FN-37 ANDOB C 5 3 — 1 THENPR I NT " . K . " : OB 
C53-0: OBC43— 1 : G0T010B0 

5527 IFN-37AND0BC53<>-1THENPRINT"I NEED 
AN EMPTY BOTTLE FIRST .": G0T010B0 

552B IFN-3BTHENPRINTMSSC03 :G0T01080 
5523 IFN-40THEN0BC403— 1 :PRINT"O.K. ": GOT 
01080 

5532 I FN" 13THENPR I NTMSS C 4 3 : GDT010B0 

5533 IFN-4THENOBCN3— 1 : PR I NT "0 . K . " : G0T01 
OBO 

5580 IFN=34AND0BC43O-lTHENPRINT"I NEED 
SOMETHING TO PUT IN . " : GOTO 1 OBO 

5581 I FN-34AND0B C 4 3 — 1 THENPR I NT "0 . K . " : OB 
C343— 1:G0T010B0 

55B3 PR I NT "I CAN'T SEE ANYTHING LIKE THA 
T HERE . " : G0T01080 
5530 G0T010B0 

5533 PRINT"SDRRY , BUT I CAN'T CARRY ANYM 
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ORE ! ":GOT010BO 

5B00 IFN=12AND0BC123<>-1THENPRINT"I HAUE 
N'T BOT A PIECE OF PAPER .": BOTOIOBO 
5B0 1 I FN- 1 SANDOB C IS 3 — 1 THENCOS-R I BHTS C ST 
RSCTI 3,33: CO-U AL C COS 3 : PR I NTMSS C 5 3 ; CO : BO 
TOIOBO 

5B02 I FN-7AND0B C 7 3 — 1 THENB0T05B50 

5B03 IFN-7AND0BC73<>-1THENPRINT"I 'UE BOT 

TO HAUE IT FIRST.": BOTOIOBO 
5643 BOTOIOBO 
5B50 INPUT "WHICH PABE";SE 
SB51 IF SE<>COTHENPRINTf1S$C13:GOT010BO 
5652 PRINT"CCLR3":PRINTSPCC23"ADUICE FOR 

CERTAIN EMERGENCIES. ": PRINT 

5654 PRINT" IF YOU FIND THAT A WICKED WIT 
CH HAS PUT"; 

5655 PR I NT "ALL YOUR FAMILY AND FRIENDS I 
NTO A LONB SLEEP THEN LET ME BIUE YOU "; 
5B56 PR I NT "SOME ADUICE:" 

5657 PR I NT: PR I NT: PR I NT: PR I NT "SET HOLD OF 

THE INBRED I ENTS FDR THE" 
5B5B PR I NT "WIZARD'S FAUORITE TREAT AND T 
HEN BRING" 

5B5S PR I NT "THEM TO HIM ON THE FAR SIDE 
F THE WOOD."; 

5B60 PRINT"IF HE FEELS LIKE IT, HE WILL 
HELP YOU," 

5B61 PRINT"FAILINB THAT YOU WILL HAUE TO 
WAIT FOR" 

5662 PR I NT "A PRINCE TO COME AND BRINB AL 
L THE " 

5B63 PR I NT "PEOPLE IN THE CASTLE BACK TO 

LIFE WITH A KISS." 

5B65 BETAS: IFAS-" "THEN5EE5 

5B6B PRINT"CCLRJ" 

5BB7 PRINT"C DN3THE INGREDIENTS ARE AS F 
OLLOWS" 

5B6B PR I NT " { SH* > < SH« } C SH* > { SH* > C SH* J C SH* 
3CSH*>CSH*3CSH*3CSH*>CSH*><SH*3CSH*JCSH* 
>CSH*XSH*3CSH*3CSH*3CSH*3CSH*>tSH*3{SH* 
3CSH»3CSH»3<:SH»3CSH»3CSH«>CSH»JCSH*3CSH» 
3CSH*>" 

5BB3 PRINT"C DN3SPIDER WEBS" 
5B70 PRINT"C DN3SNAKE EBBS" 
5B71 PR I NT "C DN3MEDICINAL MUD" 

5672 PRINT"C DN3BLENDED WITH THE MABIC W 
ATER" 

5673 PRINT"* DN>C DN3JUST PRESENT THESE 
TO THE WIZARD . " 
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5B74 6ETAS: IFAS-'*"THEN5674 
5B7S PRINT"CCLR>":GOT010BO 

5700 IFN-17AND0BC163<>-1THENPRINT"WHAT U 
ITH ?":B0T010B0 

5701 IFN-17AND0BC163 — 1THENPRINT"0 . K . ":D 
UCB , 43-7: FLC33 — 1 : B0T010B0 

5702 IFN-35AND0BC353THENPRINT"THERE'S A 
THICK LIQUID IN IT . " : GOT01080 

5733 G0T010B0 

5B00 I FN-SANDOB C 1 4 3 — 1 ANDSP-5THENPR I NT "T 
HE HOLDINB ROPES HAUE BEEN CUT.":FLC13 — 
1:B0T010B0 

5B01 I FN-3ANDSP-5AND0BC 14 3<> -1THENPR I NT " 
WHAT WITH ??":G0T010B0 
5B33 PRINTMSSC03 : G0T010B0 

5300 I FOB CN 3 < > SPANDOB C N 3 <> -1THENPR I NT " I 
CAN'T SEE ANYTHING LIKE THAT !'*:G0TD1080 

5301 I FN-3THENPR I NT "YOU NEED AT LEAST TW 
MEN FOR THAT JOB . " : G0T010B0 

5302 I FOB C 14 3 — 1 ANDSP-5THENPR I NT "THE HOL 
DING ROPES HAUE BEEN CUT . " : FLC 1 3— 1 :BOT 
010B0 

5S03 IFN-31THENPRINT"0.K. - I HAUE GOT T 
HE ARMOR 0N.":0BCN3— 1:G0T010B0 
BOOO I FN-5ANDSP-24AND0B C 5 3 — 1 THENPR I NT "0 
. K . " : OBC53-0 : 0BC41 3— 1 : BOT010BO 
6010 I FN-5AND0B C 5 3 — 1 ANDSP< > 24THENPR I NT " 
WHAT WITH ?":G0T010B0 
B020 PR I NT "I CAN'T":G0T010B0 
B100 IF0BCN3O-1THENG0TDB1B0 
6101 I FN-4THENPR I NT "0 . K . " : OB C N 3 -SP : G0T01 
OBO 

B102 I FN-5THENPR I NT "O . K . " : OB C N 3 -SP : B0T01 
OBO 

BIOS I FN-7THENPR I NT "0 . K . " : OB C N 3 -SP : G0T01 
OBO 

B104 I FN- 12THENPR INT"0.K.":0BCN3-SP: GOTO 
10B0 

B105 I FN-15THENPR INT"0.K.":0BCN3 -SP : GOTO 
10B0 

B10B I FN-1BTHENPR I NT "0 . K i " : OB C N 3 -SP : GOTO 
10B0 

B107 I FN-14THENPR I NT "0 . K . " : OB C N 3 -SP : SOTO 
10B0 

BIOS IFN-30THENPRINT"0 .K . " : 0BCN3-SP : GOTO 
10B0 

BIOS IFN-41THENPRINT"0 .K . " : 0BCN3-SP : SOTO 
10B0 

Bl 10 I FN-45THENPR I NT "O . K . " : OB C N 3 -SP : GOTO 
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10BO 

Bill I FN-40THENPR I NT " . K . " : OB C N 3 «"SF t-BOTO 
1080 

5112 I FN-3BTHENPR I NT " . K . " : OB C N 3 -SP : BOTO 
1080 

Bl 13 I FN-35THENPR INT"D .K . " : OBCND-SP: BOTO 
1080 

Bill I FN~31THENPR I NT "O . K . " : 0BCN3-SP : BOTO 
1080 

B170 B0T010B0 

B1B0 IFN-5AND0BC413— 1THENPRINT"0 .K . " : OB 
C413-SP:B0T010B0 

B 1 B 1 I FN-4AND0B C 34 3 — 1 THENPR I NT "0 . K . " : OB 
C 34 3 -SP : OB 1 4 3 -SP : SOTO 1 OBO 
B1S0 60T010B0 

BOOO PRINT"CCLR3":PRINT"A SNAKE'S BITTEN 
ME . " 

B010 PRINT"I HAUE BEEN KILLED . " : PRINT: PR 
I NT "SHALL I TRY ABA IN ?" 
B020 BETAS: IFAS-" "THENB020 
8030 IF AS="N"THENEND 
8040 RUN 

8050 I FOB C 34 3 <> 25THENRETURN 

8060 IF0BC353O25THENRETURN 

8070 I FOB C 41 3 <> 25THENRETURN 

8050 I FOB C 40 3 <> 25THENRETURN 

BOSO PRINT"CCLR3":PRINT"CCri43I CAN HEAR 

A UOICE'*:PRINT:PRINT:PRINT 

B100 PRINT"CCI143THE OLD HUMBUB'S DELIBHT 

ED WITH YOUR" 

B110 PR I NT : PR I NT "PRESENTS . HE IS BOINB T 
USE HIS MA6 I C " 

8120 PRINT:PRINT"TO HELP YOU .": PRINT: PRI 
NT 

B130 PRINT"BO BACK HOME WHERE A FEAST IS 

PREPARED": PR I NT 
B140 PR I NT "TO CELEBRATE THE END OF LONB 
SLEEP ! "; : PRINT 
8160 60T081E0 
8170 PRINT"CCLR3" 

8040 I FOB C 30 3 — 1THEN0B C 30 3 -20 : PR I NTMSS C B 
3 : RETURN 

S050 I FOB C 35 D =- 1THEN0B C 353=20: PRI NTMSS C 6 
3 : RETURN 

SOBO IF0BC5D— 1THEN0BC5D-20 : PRINTMSSC63 : 

RETURN 

3070 RETURN 

90B0 IF0BC313O-1THENRETURN 

9090 PRINT"CCLR3":PRINT"I 'M TOO HEAUY AN 
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D I'M SINKING !":SDTOB010 

3100 IFRNDC13> .3THENRETURN" 

9110 PRINT-CCLRJ": PRINT"I 'UE FALLEN IN 

TO A TRAP . " : B0T0B010 

10000 PRINT"CCLR>":PRINT"IT'S AN ENCHANT 
ED KITCHEN, THE WIZARDS" 

10010 PRINT"COMINB AND HE'S GOINS TO TUR 
N ME INTO STONE .": B0T0B010 

READY . 



207 



ABACUS Software 



ADUENTURE GAMEUR ITER'S HANDBOOK 



REM C64 ADUENTURE EDITOR 

1 REMCC3 1984 BY J. WALKOUT AK 

2 REM 



5 POKE 53380,0: POKE 53281,0: PRINT"CYEL 
3" 

7 AS CO 3- "ADUENTURE SYSTEM 1.0" 

B A$C13-"CC319B4 BY WALKOWIAK": A$C23-"FR 

OM THE ABACUS BOOK" 

S AS C 3 3 ~ "ADUENTURE GAMEUR ITER'S HANDBOOK 

M 

10 PRINT"CCLR>C DN>C DN3 " : FOR I -0T04 : PR I N 
TSPCC20-INTCLENCASC I 3 3/23 3ASC 1 3 "< DN3" : N 
EXT 

11 DIM RASCGOS.OBSCGOS.OBCGOS.UESCSOS.MS 
$C603 I ACSC30,B03,BCSC30,B03,RNSCB03 

15 DIM ADSC203,DUC60,63 

16 M1$="ADUENTURE EDITOR UER 1.0" 

17 M2$-"C DNJC DNKWHT5WHAT WOULD YOU LI 
KE?" 

18 M3$-"CSH«JCSH*><:SH»>CSH*>£SH*3CSH*>CS 
H*3CSH*>CSH»JCSH»>CSH»JCSH*>CSH»3<:SH«J<:S 
H*3CSH»JCSH*>CSH»3CSH»>CSH»5CSH*3CSH»3CS 
H*3CSH»JCSH*>CSH*JCSH»>CSH«JCSH»>CSH*>CS 
H»>CSH*3CSH»3CSH»>CSH»3CSH«>CSH»>CSH*3CS 
H»3CSHC>" 

19 M4S-" 



20 AR-O: A0~0: AU-O: AM=0 : AF-O: I2-1.-L3-1 

25 F0RI-1T02000:NEXTI 

30 PRINT"CCLRJ";M1S:PRINTM3S 

40 PRINT"< DNJC DNJWHICH ADUENTURE DO YD 

U WISH TO PROCESS" : INPUT NAS: INPUT "C DN> 

UERSION "iUES 

50 INPUT"C DN3C0PYRIGHT BY "iCRS 
200 PRINT"CCLR>CYEL3" ; M1$:PRINT MBS; 

210 PRINTSPCC103"CCMB30 - IDENTIFICATION 
DATA" 

211 PRINTTABC103"C DNJ1 - ENTER ROOMS 

» 

212 PRINTTABC103"C DN32 - ENTER OBJECTS 

» 

213 PRINTTABC103"C DN33 - ENTER UERBS 
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214 PRINTTABC103"C DN34 - OBJECT POSITIO 
NS" 

215 PRINTTABC103"C DN35 - CONNECT ROOMS 
TOGETHER" 

216 PRINTTABC103"C DN36 - CONDITIONS & A 
CTIONS " 

217 PRINTTABC103"C DN37 - INSERT MESSAGE 
S" 

21B PRINTTABC103"C DN3B - DISK ACCESS 

II 

213 PRINTTABC103"C DN33 - PROGRAM END " 
220 PRINTM3S 

225 PRINTTABC103 "PLEASE CHOOSE 
230 G0SUB10000 

235 IF A-S THEN EN— 1: GOTO 5100 

240 ON A+l GOTO 3000,1100,1200,1300,1400 

,1500,1600,4000,5000,6000 

433 REM I/O ROUTINE 

500 PRINT"CCLR>"; 

510 2E-0:SP-0:G0SUB HOOOrPRINT Tl$ 
520 Z-Z+l 

555 ZE-0 : SP-25 : GOSUB 11000: PRINTT2S j Z 

556 PRINTM3S 

557 ZE-16:SP-0: GOSUB 11000: PRINT M4S 
55B ZE-16:SP-0: GOSUB 11000: PRINTZ-1 j : IF 
A-l THEN PRINT RASCZ-13 

553 IF A-2 THEN PRINT OBSCZ-13 
560 IF A-3 THEN PRINT UERBSCZ-13 

563 ZE-20:SP-0: GOSUB 11000: PRINTT3S; : EIS 
-"": INPUT EIS: IFEI$-""THEN563 

564 IF LEFTSCEI$,13-"»"THEN GOTO 200 

565 IF A-2 THEN ZE-22 : SP-0 : GOSUB 11000:1 
NPUT "OBJECT NAME ";RNSCZ3 

570 ZE-20: SP-O: GOSUB 11000: PRINT M4$ 

571 ZE-22: SP-O: GOSUB 11000: PRINT M4$ 
530 RETURN 

1100 PRINT"CCLR3":T1S-"ENTER ROOMS ":T2$ 
-" ROOM N0.;":T3$-"I AM " 
1105 Z-AR 

1110 GOSUB 510 : REM PRINT ROOMS 
1120 RASCZ3-EIS 
1125 AR-Z 
1130 GOTO 1110 

1133 REM END 
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1 snn 
xcuu 


DDT KIT " /"PT P%».T1 (Eh 

rKlfMI vLLKj : 115" 


t-Nl C.K □BJEuTS : T 




flB TFPT MR " • T^Cb »» T 
UDJCL1 NU : lO-D J. 


err » 

bc.fi. 


1 snc 






lelu 


pnei id c? 1 o 
bUbUhl 510 




lceu 


□BSCZ J-EIS 




1225 


A0"Z 




1230 


BDTUldlO 




1290 






TS 






1JUD 


PRINT tCLKJ 




1301 


T1S- "ENTER UERBS" 


:T2S-"UERB NO. : " 


1302 


T3S-"" 




1305 


Z-AU 




1310 


sqsub sio 




1320 


UERBSCZD-EIS 




1330 


AU-Z 




1360 


GOTO 1310 




1390 


REM 




1399 


REM 


OBJECT L0 



CATIONS 

1400 PRINT"CCLR>" 

1410 LP-L3 

1420 FOR I -LP TO AO 

1430 G0SUB 12000 : REM PRINT LIST 

1440 ZE-23 : SP-0 : G0SUB1 1000 : PR I NT "OBJECT 

"iRNSCIJ;" IN ROOM NO.";: INPUT 0BCI3 
1450 LP-I+1 
14B0 PRINT"CCLR3" 
1470 NEXT I 
1490 GOTO 200 
1500 FOR R1-I2 TO AR 
1510 PRINT"CCLR3" 
1520 G0SUB 12000 
1530 PR I NT "C DN5R00n";Rl; 
"i : INPUT DUCR1.13 
1540 PRINT"C DN5R00M";Rl! 
"; : INPUT DUCR1.23 
1550 PRINT"< DN3R00n";Rl; 
; : INPUT DUCR1 ,33 
1560 PRINT"C DN3R00H" ; Rl ; 
; : INPUT DUCR1.43 
1570 PR I NT "C DN>R00M";R1; 
INPUT DUCR1.53 
1560 PRINT"C DN3R00C1" ; Rl ; 
; : INPUT DUCR1 , 63 



"LEADS NORTH TO 



'LEADS SOUTH TO 



"LEADS WEST TO* 



"LEADS EAST TO" 



"LEADS UP TO' 



'LEADS DOWN TO" 
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1585 NEXT Rl 

1590 B0T0200 

1591 REM END CONNECT 

IONS 

1600 PRINT"CCLR>": REM CON 

D I TONS AND ACTIONS 
1B05 NB-0 
1607 NB-NB+1 

1606 IF NB> AU THEN 60T0 200 
160S RNSC03-"<C0NTINUE>" 
1610 PRINT"CCLR3":F0RI-0 TO AO 
1650 PRINT IjRNSCIDj 

1630 IF POSC03+LENCRN$CI+13 3-> 36 THEN P 
RINT 

1610 NEXT I 

1650 PRINT: PRINT M3$:PRINT"C DN3" 
1700 PR I NT "ACT I ON ON UERB " j UERBSCNB3 ; 
" AND OBJECT NO. "; 
1710 INPUT OB 

1715 IF OB-0 THEN GOTO 1607 
1600 PRINT"<CLR3"; 

1B10 PR I NT "PLEASE INSERT ALL CONDITIONS 
FOR ACTION " j UESCNB3 j " ";RNSC0B3"; " 
1B15 PR I NTM3S 

1620 PRINT"C DN>C DN>"TABC53"R - DBJEC 
T IS IN ROOM" 

1630 PRINTTABC53"* DN>I - OBJECT IS IN 
INUENTORY" 

1B40 PRINTTABC53"C DNJN - OBJECT IS NO 
T HERE " 

1850 PRINTTABC53"{ DN3FX - FLAB X IS SE 
T" 

I860 PRINTTABC53"C DNJBX - FLAB X IS DE 
LETED" 

1B70 PRINTTABC53"C DNJSXX - PLAYER IS RO 
OM XX " 

1B80 ZE-20:SP-0:G0SUB11000 

1680 PRINT M3Sj : PR I NT "ALTER CODE — > "; 

BCSCNB, 0B3 : PRINT 

1900 INPUT"CONDITIONS"i BCSCNB, 0B3 

1905 PRINT"CCLR>";UE$CNB3i " ";0B$C0B3 : " 
BRINGS ABOUT WHEN:" 

1906 PRINTBC$CNB,0B3j" COMPLETES THE FO 
LLOUI I NB ACTION: ":PRI NTM3S ; 

1910 PRINT" U - "iRN$C0B3;" DISAPP 
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EARS" 

1320 PRINTTABC53"C DNM - ";RN$COBD ; " 
GQES INTO INUENTORY" 

1930 PRINTTABC53"C DNJNXX - OBJECT XX AP 
PEARS NEW" 

1940 PRINTTABCS3"C DNJDXY - PASSAGE N. T 
□ ROOM XX" 

1950 PRINT T ABC 53 "C DN3DXXY - PASSAGE TO 
ROOM XX DIR. Y" 

1960 PRINTTABC5D "C DNJFX - SET FLAG X" 
1370 PRINTTABC5J"C DN>LX - DELETE FLAG 

X" 

1SB0 PRINTTABC5D "{ DN3MXX - OUTPUT MESSA 
GE XX" 

1330 PRINTTABC5D "C DN>T - PLAYER DIES" 
2000 PRINTTABC53"C DN5E E END, BECAUSE 

WON" 
E005 PRINTM3S; 

2010 PR I NT "ALTER CODE — > ";ACSCNB,0B3 
2020 INPUT"ACTI0N";AC$CNB,0B3 
2030 G0T01B10 

2040 REM END ACTION & CONDITIONS 

20B0 G0SUB10000 

2333 REM KENNDATE 

N 

3000 PR I NT "CCLR3 IDENTIFICATION FOR THE A 

DUENTURE " j NAS 

3010 PRINT"C DN>"M3$"C DN>" 

3020 PR I NT "t DNJROOMS: »;AR 

3030 PR I NT "C DN50BJECTS: ";A0 

3040 PRINT"C DNJUERBS: "jAU 

3050 PR I NT "C DN3C0NDITI0NS: ";NB 

3060 PR I NT "C DN J MESSAGES ";AM;"C DN>" 

3070 IF LO THEN PR I NT "C DN5 " ; AF ; "USED FL 

AGS" 

30B0 PRINTM3S 

3030 PRINT"C DN3START ROOM FOR PLAYER: 
" • SP 

3095 PR I NT "C DN3NECESSARY INPUT LENGTH: 

" ■ UIL 
3100 G0SUB10000 
3110 G0T0200 

3333 REM INFORM 

AT I ON 

4000 PRINT"CCLR> INPUT MESSAGES" 
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4010 PRINTM3S 
4020 An-Att+1 

4030 PRINT AM;: INPUT MSSC AMD : IF MSSCAMD- 

" "THEN PRINT"C UP3C UP J " : G0T04030 

4040 IF LEFTS CUSS CAM 3 , 13-"*"THEN An- All- 1 

: 60T0 500 
4050 GOTO 4020 

40E0 REM END OF IN 

FO 

4S3S RE(1 DISK CO 

F1MANDS 

5000 PR I NT "< CLR:>1 - SAUE" 
5010 PR I NT "C DN32 - LOAD " 
5020 GOSUB 10000 

5030 IF A<1 OR A>2 THEN GOTO 5020 

5040 ON A GOTO 5100, 5500 

5100 PR I NT " CCLR3PLEASE WAIT ...» j : PRINT" 

C DN3SAUING DATA ! " 

5105 G0SUB5000 

5110 OPEN 2,B,2,"@0: ,, +NA$+ M ,S,UP 

5120 PR I NT#2 , NAS : PR I NT#2 , UERSS : PRINTttB , C 

RS:PRINT*2,UIL 

51 30 PR I NT#2 , AR : PR I NT#2 , AO : PR I NT#2 , AU : PR 

I NT#2 , All : PR I NT#2 , SP : PR I NT#2 , AF 

5140 FOR 1-1 TO AR:PRINT#2,RA$CI3:NEXT I 

5150 FOR 1-1 TO A0:PRINT#2,0BSCI3 :PRINT# 

2,RN$CID:PRINT#2,0BtI3:NEXT I 

5170 FOR 1-1 TO AU:PRINT#2,UE$CI3:NEXT I 

5180 FOR 1-1 TO An:PRINT#2,nSS[ID:NEXT I 

5130 FOR X-l TO AR 

5200 FOR Y-l TO B 

5210 PRINT#2,DUCX,Y3 

5220 NEXT Y 

5230 NEXT X 

5240 FOR X-l TO AU 

5250 FOR Y-l TO AO 

5255 IFBCSCX, Y3-" "THENBCS C X , Y 3 - " » " 

5250 PRINT#2,BCSCX,Y3 

5270 NEXT Y 

52B0 NEXT X 

5230 FOR X-l TO AU 

5300 FOR Y-l TO AO 

5305 IFACSCX,Y3-""THENACSCX,Y3-"*" 
5310 PRINT#2,AC$CX,Y3 
5320 NEXT Y 
5330 NEXT X 

5340 CLOSE 2 : IF EN THEN PRINT-'CCLRJ-zE 
NO 
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ND 

5350 GOTO 200 

5500 PRINT"CCLR3PLEASE WAIT . . W :L0— 1 :P 

RINT"C DN J LOADING DATA I" 

5510 OPEN 2,B,S,NAS+",S,R" 

5550 I NPUT#2 , NAS : I NPUT#2 , UERSS : I NPUT#S , C 

RS: INPUT#2,UL 

5530 I NPUT#2 , AR : I NPUT#2 , AO: I NPUT#2 , AU: IN 

PUT#2 , AM: I NPUT#2 , SP : I NPUT#2 , AF 

5540 FOR 1-1 TO AR : I NPUT#2 , RAS C I 3 : NEXT I 

5550 FOR 1-1 TO AO : I NPUT#2 , OBS C I 3 : I NPUT# 

2.RNSCI3: INPUT#2, OBt 13 : NEXT I 

5570 FOR 1-1 TO AU : I NPUT#2 , UE$ C I 3 : NEXT I 

55B0 FOR 1-1 TO AH : I NPUT#2 , MS$ C I 3 : NEXT I 

5590 FOR X-l TO AR 

5600 FOR Y-l TO 5 

5610 INPUT#2,DUCX,Y3 

5620 NEXT Y 

5630 NEXT X 

5640 FOR X-l TO AU 

5650 FOR Y-l TO AO 

5660 INPUT#2,BC$CX,Y3 

5670 NEXT Y 

56B0 NEXT X 

5690 FOR X-l TO AU 

5700 FOR Y-l TO AO 

5710 INPUT#2,ACSCX,Y3 

5720 NEXT Y 

5730 NEXT X 

5740 CLOSE 2 

5750 GOTO 200 

5999 REM C10R 

E DATA 

6000 PRINT"CCLR3PLEASE INSERT THE REST 
F THE DATA : " : PRINTM3S 

6010 INPUT"* DN3C DN3UI0RD LENGTH " ; UIL 
6020 INPUT"C DN3C DN 3 START R00I1 "jSP 
6030 INPUT"C DN3C DN3NUMBER OF FLAGS" ; AF 
6090 RETURN 

10000 GET A$:IFA$-"" THEN 10000 
1 00 1 A-UAL CAS3 : RETURN 

11000 POKE 211,SP:P0KE 214,ZE:SYS 58732: 
RETURN 

12000 SP-0:ZE-0:G0SUB11000 

12010 PRINT"LIST OF POSSIBLE ROOMS: ":PRI 
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NTH3S 

15020 FOR I 1-1 TO AR : REM PRINT ROO 

n LIST 

15030 PRINTU;RASCI13; 

12040 IF P0SC03+LENCRASCI1+13J->3B THEN 
PRINT 

12050 NEXT II 
12060 PR I NT "C DNJ" 
12070 RETURN 

READY . 
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REM — ADUENTURE INTERPRETER UER 1.0 

1 REM CCD 198H BY JOERS WALKOUIAK 

2 REM 

5 POKE 535B1,0:P0KE 532B1.0 

6 PRINT"CCLR3"SPCC103"ADUENTURE SYSTEM 
1 .0" 

7 PRINT" CC3 19B4 BY UIALKOUIAK" 
B PR I NT "C DN> FROM THE ABACUS B 
OOK" 

9 PR I NT "C DN> ADUENTURE BAMEUIR I TER ' S H 
ANDBOOK" 

30 FOR I-1T02000:NEXTI 

HO PRINT" WHICH ADUENTURE DO YOU WANT TO 

PLAY": INPUT" FILE NAME: ";NA$ 
50 OPEN B,B,2,NA$+",S,R" 

BO I NPUT#S , NA$ : PR I NTNAS : I NPUT#2 , UERSS : PR 
I NTUERSS : I NPUT#2 , CRS : PR I NTCRS : I NPUT#B , WL 
70 I NPUT#2 , AR : I NPUT#2 , AO: I NPUT#2 , AU : I NPU 
T#2 , AM : I NPUT#2 ,SP:INPUT#2,AF 
75 DIM RASCARD.OBSCAOS.RNSCADD.OBCAOD.UE 

i c m 3 , nsf e m 3 , f\m i m , m 3 , bg* c m , m 3 

7B DIM ADSC20D,DUCAR,BD 
BO FOR 1-1 TO AR : I NPUT#2 , RAS C 1 3 : NEXT I 
90 F0RI-1T0A0: INPUT#2, OBSC I 3 : INPUT#2, RN$ 
C I 3 : RNSC I 3-LEFTSCRNSC I 3 , WL3 : INPUT#2, OBC I 
3: NEXT I 

100 FOR 1-1 TO AU: INPUT#2 , UESC I 3 : UESC 1 3- 

LEFTSCUESC I 3 , WL3 : NEXT I 

110 FOR 1-1 TO AM : I NPUT#2 , MSS C I 3 : NEXT I 

120 FOR X-l TO AR : FOR Y-l TO 6 

130 INPUT#2,DUCX, Y3 

140 NEXT Y : NEXT X 

150 FOR X-l TO AU : FOR Y-l TO AO 

1B0 INPUT#2,BCSCX,Y3 

170 NEXT Y : NEXT X 

1B0 FOR X-l TO AU : FOR Y-l TO AO 

190 INPUT#2,AC$CX,Y3 

200 NEXT Y : NEXT X 

210 CL0SE2 

1000 PRINT"CCLR>" : PRINT CHRSC1123 
1010 LES-" 
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1050 DATA NORTH, SOUTH, WEST, EAST, UP, DOWN 
1030 FOR RI-1 TO S 
1040 READ RISCRI3 
1050 NEXT RI 

1070 PRINT"CCLR3":P0KE S32B1 , 0: P0KE532B1 
,0 

1080 PRINT" " 

1030 POKE 21 1,0: POKE 214,0: SYS 5B732 
1100 FOR ZE-1 TO 10 
1110 PRINT LES 
1120 NEXT ZE 

1130 POKE 21 1,0: POKE 214,0: SYS 5B732 

1140 PRINT"I AM 

1150 PRINTRASCSP3 

1160 PRINT"I SEE ";:GE-0 

1170 FOR 1-1 TO AO 

11B0 IF OBCIJOSP THEN 1210 

11S0 IF POSC03+LENCOBSCI3 3+2 < 33 THEN P 

RINT 0BSCI3;", "j:GE— 1 : GOTO 1210 

1200 IF P0SC03+LENC0BSC 13 3+2 >- 39 THEN 

PRINT : GOTO 1190 

1210 NEXT I : IF NOT GE THEN PRINT"NOTHI 

NG IN PARTICULAR "; 

1220 PRINT"CLFT3CLFT> . " 

1230 PRINT LES 

1240 PRINT" I CAN GO " ; 

1250 FOR RI-1 TO 6 

1260 IF DUCSP.RI3-0 THEN GOTO 1310 

1270 IF POSC03-14 THEN PRINT RI$CRI3;:G0 

TO 1310 

12B0 IF P0SC03+LENCRISCRI 3 3<37 THEN PRIN 
T", ";RI$CRI3; :GOTO 1310 

1290 IF POSC03+LENCRISCRI3 3>-37 THEN PRI 

NT", " : PRINTRISCRI 3 j : GOTO 1310 

1300 IF POSC03<16 AND POSC03>2 THEN PRIN 

T", ";RI$CRI3; 

1310 NEXT RI 

1320 PRINT"." 

1330 PRINT" 

________ l» 

1390 POKE 21 1,0: POKE 214, 24: SYS 5B732:PR 
INT" "; : INPUT"UHAT SHALL I DO ";EIS: PRI 
NT" "; 

1425 IF LENCEIS3>2 THEN 1500 

1430 IF EI$-"N"ANDDUCSP,13<>0 THEN SP-DU 
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CSP,13:PRINT"O.K.":BOTO 10BO 

1440 IF EI$-"S"ANDDUCSP,23<>0 THEN SP-DU 

CSP.23 :PRINT"O.K. ":SOTO 10B0 

1450 IF EI$-"UJ"ANDDUCSP,33<>0 THEN SP-DU 

CSP,33:PRINT"O.K.":BOTO 1080 

1460 IF EI$-"E"ANDDUCSP,43<>0 THEN SP-DU 

CSP,43:PRINT"O.K.":BOTO 10B0 

1470 IF EI$-"U"ANDDUCSP,53<>0 THEN SP-DU 

CSP,53:PRINT"0.K.":60T0 10B0 

1480 IF EI$-"D"ANDDUCSP,63<>0 THEN SP-DU 

CSP,63:PRINT"O.K.":GOTO 10B0 

1490 PR I NT "THAT DOESN'T LEAD ANYWHERE!": 

BDTD10B0 

1500 IF LEFT$CEIS,33<>"INU"THEN 1B00 
1510 PR I NT "I AM CARRYING THE FOLLOWING: " 
1520 FOR 1-1 TO AO 

1530 IF 0BCI3— 1 THEN PRINT 0BSCI3 
1540 NEXT I 
1550 GOTO 10B0 

1600 IF LEFT$CEI$,43<> "SAUE"THEN 1700 

1605 PRINT"CCLR>"SPCC103" SAUE GAME " 

1606 INPUT"C DN3C DN3ENTER NAME ";EIS 
1610 IF LENCEI$3>16 THEN 1605 

1615 PRINT"* DN3C DNJFILE " ; EIS; " IS SAU 
I NB . " 

1620 OPEN 2,8,2, "SO: "+EIS+" , S, Ul" 

1 625 PR I NT#2 , NA$ : PR I NT#2 , SP : PR I NT#2 , FL 

1630 FOR 1-1 TO AO:PRINT#2,OBCI3:NEXTI 

1640 FOR RA-1 TO AR : FOR RI-1 TO 6 

1650 PRINT#2,DUCRA,RI3 

1660 NEXT RI: NEXT RA 

1670 FOR 1-1 TO AF: PR I NT#2 , FL C I 3 : NEXT I 
1675 CL0SE2:60SUB 1680: PRINT"CCLR3 ": GOTO 
10B0 

16B0 OPENl.8,15: INPUT#1 , A, B$,C, D 

1685 I FA< > OTHENPR I NT : PR I NTBS : FOR I -1T0500 

: NEXT : CL05E2 : CL0SE1 : G0T010B0 

1630 CL0SE1 : RETURN 

1700 IF LEFT$CEI$,43<> "LOAD "THEN 2000 

1705 PRINT"CCLR}"SPCC103" LOAD GAME " 

1706 INPUT"C DN>C DN3ENTER NAME" j EIS 
1710 IF LENCEI$3>16 THEN 1705 

1715 PRINT"C DN3C DNJFILE ";EIS;" IS LOA 
DING" 

1720 OPEN 2,8,2, "SO: "+EI$+",S,R" 



21B 



ABACUS Software 



ADUENTURE GAMEUR ITER'S HANDBOOK 



1725 I NPUT#2 , NAS : I NPUT#2 , SP : I NPUT#2 , FL 
1730 FOR 1-1 TO AO: INPUT#2, OBC I 3 : NEXT I 
1740 FOR RA-1 TO AR : FOR RI-1 TO 6 
1750 INPUT#2,DUCRA,RI3 
17B0 NEXT RI: NEXT RA 

1770 FOR 1-1 TO AF: INPUT#2, FLC I 3 : NEXT I 
1775 CL0SE2:G0SUB 1GB0: PRINT"CCLR>" : GOTO 
10B0 

2000 LN-LENCEIS3 

2010 FOR EL-1 TO LN 

2020 TE$-MID$CEIS,EL,13 

2030 IF TESO" "THEN NEXT EL 

2040 EUS-LEFTS C E I S , UIL 3 

2050 RL-LN-EL 

20B0 IF RL<0 THEN 2090 

2070 EOS-R I GHTS CEIS, RL3 : EOS-LEFTS CEOS, UIL 
3 

2090 FOR UN-1 TO AU 

2100 IF EUS-UESCUN3 THEN 2130 

2110 NEXT UN 

2120 PR I NT "I DON'T UNDERSTAND THE UERB . " 
: GOTO 1080 

2130 FOR N-l TO AO 

2140 IF E0S-RNSCN3 THEN 2200 

2150 NEXT N 

21 BO PR I NT "I DON'T UNDERSTAND THE OBJECT 
. " : G0T010B0 

B1SB REM 

UN AND fs| A rea UERB/OBJECT NUMBER 

2199 REM CONDITIONS FULFIL 

LED 

2200 FOR AB-1 TO LEN CBCSCUN, N3 3 
2210 BDSCAB3-MIDSCBCSCUN, N3 , AB, 13 
2220 NEXT AB 

2250 FOR AA-1 TO LENt ACSCUN, N3 3 
2260 ADS CAA 3 ™MI DSC ACS C UN , N 3 , AA , 1 3 
2270 NEXT AA 

22B0 REM CONDITIONS IN BDS ACTION 

S IN ADS 

2230 AB-AB-1 : AA-AA-1 
2300 X-0:ER-0 
2310 X-X+l 

2320 IF X-AB+1 THEN 2500: REM 

ALL CONDITIONS CHECKED 

2330 IF BDSCX3<>"R"THEN 2350 
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2340 IF 0BCN3OSP THEN ER— 1 : GOTO 5310 
5345 S0T02310 

2350 IF BD$CX3<>"I"THEN 2370 

23B0 IF 0BCN3O-1 THEN ER— 1 : GOTO 2310 

2370 IF BD$CX3<>"N"THEN 2390 

23B0 IF C0BCN3OSP AND 0BCN3O-13 THEN E 

R— 1 : BOTO 2310 

2390 IF BD$CX3<>"S"THEN 2410 

2400 Rl$-BDSCX+13+BDSCX+23:X-X+2: IF SP<> 

UALCR1S3 THEN ER— 1 : SOTO 2310 

2410 IF BDSCXSO-F" THEN 2450 

2420 IF FLCUALCBDSCX+13 33— 1THEN 2440 

2430 X-X+1:B0T0 2450 

2440 ER— 1 : X-X+l : BOTO 2310 

2450 IF BDSCXSO-B" THEN 2310 

2460 IF NOT FLCUALCBDSCX+13 3 3 THEN 2480 

2470 X-X+l: BOTO 2310 

2480 ER— 1 : X-X+l : BOTO 2310 

2490 BOTO 2310 

2500 IF NOT ER THEN PR I NT "YOU CAN'T DO T 
HAT YET.": BOTO 1080 

3993 REM ALL CONDIT. FULFILLED 

4000 PRINT"0.K." 

4999 REM EXECUTE ACTION 

5000 X-O.-ER-O 
5040 X-X+l 

5050 IF X>AA THEN 1080 

50B0 IF AD$CX3<>"U" THEN 50B0 

5070 0BCN3-0:B0T0 5040 

5080 IF ADSCX3<>"I" THEN 5100 

5090 0BCN3— 1 : BOTO 5040 

5100 IF A0SCX3<>"N" THEN 5120 

5110 605UB 5500 : OB CPA 3 -SP: GOTO 5040 

5120 IF ADSCX3<>-"F" THEN 5140 

5130 GOSUB 5600: FLCPA3—1: SOTO 5040 

5140 IF ADSCX30-L" THEN 51B0 

5150 BOSUB 5600:FLCPA3-0 :BOTO 5040 

51B0 IF ADSCX30T1" THEN 5180 

5170 BOSUB 5500:PRINTHSSCPA3 : GOTO 5040 

5180 IF AD$CX3<>"E" THEN 5200 

5190 BOTO 6000 

5200 IF ADSCX3<>"D"THEN 5300 
5210 BOTO 5310 
5220 DUCSP.P13-P2 
5230 IF Pl-1 THEN P3-2 
5240 IF Pl-2 THEN P3-1 
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5250 IF Pl-3 THEN P3-4 
5250 IF Pl-1 THEN P3-3 
5270 IF Pl-5 THEN P3-S 
52B0 IF Pl-6 THEN P3-5 
5290 DU C P2 , P3 3 -SP : G0T05040 
5300 IF AD$CX3<>"T"THEN50«iO 

5310 PRINT-I'UE BEEN KILLED. INPUT "NEW 
BADE " j E I $ : I FLEFTS C E I $ , 1 3 - " Y " THENRUN 

5311 PRINT" " : END 

5500 R1S-ADSCX+13+ADSCX+23 : X-X+l : PA-UALC 
R1S3 : RETURN 

5500 R1S-ADSCX+13 : X-X+l : PA-UALCR1S3 : RETU 
RN 

5700 PI -UAL C ADS C X+ 1 3 3 : P2-UAL CADSCX+23 3 : X 
-X+2: RETURN 

B000 PRINT"Y0U'UE WON THE SAtlE .": INPUT "N 
EU 6Af1E";EI$: I FLEFTS C E I S , 1 3 - "Y "THENRUN 

READY . 
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Appendix A 

Special Printer Listing Codes 

All the programs in this book mere listed using the 
TURBOPRINT / GT printer interface in the special listing 
mode. This should make thB Commodore graphic symbols easier 
to enter and with less error. Compare the TURPOPRINT 
listing on page 8B with the standard Commodore listing on 
page 98, the screen of GOLD FEUER. 

Below are the special listing codes produced in the special 
listing mode and the equalivent Commodore keys. 



TURBOPR I NT /GT 


Commodore 


i key 


CUHTJ 


CTRL 


S 


t WHITE! 


CRUS3 


CTRL 


S 


REUERSE ON 


choii:> 


CLR/HOME 




CRED3 


CTRL 


3 


CREDD 


CRHT5 


RIGHT 


CURSOR 


CGRNJ 


CTRL 


6 


C GREEN 3 


CBLUJ 


CTRL 


7 


C BLUE 3 


CSH*3 


SHIFT 


» 




CSHA> 


SHIFT 


A 




CSHB} 


SHIFT 


B 




CSHC3 


SHIFT 


C 




CSHD5 


SHIFT 


D 




CSHEJ 


SHIFT 


E 




CSHFJ 


SHIFT 


F 




CSHGJ 


SHIFT 


G 




CSHH> 


SHIFT 


H 




CSHI> 


SHIFT 


I 




CSHJJ 


SHIFT 


J 
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CSHKJ 


SHIFT K 


CSHL3 


SHIFT L 


CSHflJ 


SHIFT n 


CSHNJ 


SHIFT M 


CSH03 


SHIFT 


CSHP3 


SHIFT P 


CSHQ} 


SHIFT Q 


CSHR3 


SHIFT R 


CSHS3 


SHIFT S 


CSHTJ 


SHIFT T 


CSHUJ 


SHIFT U 


CSHU3 


SHIFT U 


CSHUI} 


SHIFT Ul 


CSHXJ 


SHIFT X 


CSHYJ 


SHIFT Y 


CSHZJ 


SHIFT Z 


CSH+3 


SHIFT + 


ccn-j 


CMDR - 


CSH-3 


SHIFT - 


C PI> 


SHIFT t 


CCM*> 


CMDR • 


ccni> 


CMDR 1 C ORANGE] 


CBLK3 


CTRL 1 C BLACK 3 


C UPJ 


SHIFT UP/CURSOR 


COFF3 


CTRL REUERSE OFF 


CCLR3 


SHIFT CLR/HOtlE 


ccmbj 


CMDR 2 C BROWN 3 


ccnaj 


CMDR 3 CL RED 3 


ccmy 


CMDR 4 CBRAY 13 


C016} 


CI1DR S CL GREEN 3 


CQ173 


CMDR 7 CL BLUE 3 


CLFT3 


SHIFT LEFT /CURSOR 


CYEL3 


CTRL 8 C YELLOW 3 
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CCYNJ 


CTRL 


4 C CYAN 3 


CSH > 


SHIFT 


SPACE 


CCMIO 


CUDR 


K 


ccmij 


CMDR 


I 


ccmtj 


CI1DR 


T 


ccne> 


cmor 


B 


ccmgj 


CMDR 


G 


ccm+j 


CMDR 


+ 


ccmmj 


CMDR 


M 


CSH#3 


SHIFT 


POUND SIGN 


ccnm 


CMDR 


N 


CCMQ3 


CMDR 


□ 


CCMD5 


CMDR 


D 


{CMZ5 


CMDR 


Z 


ccns> 


CMDR 


S 


ccnpj 


CMDR 


P 


CCMA5 


CMDR 


A 


CCMEJ 


CMDR 


E 


CCtlRJ 


CMDR 


R 


ccmw:> 


CMDR 


U 


CCMH3 


CMDR 


H 


<CMJ> 


CMDR 


J 


CCMLJ 


CMDR 


L 


CCMY> 


CMDR 


Y 


ccmuj 


CMDR 


U 


CCMO> 


CMDR 


□ 


CSHB> 


SHIFT 


Q 


ccmf> 


CMDR 


F 


ccmo 


CMDR 


C 


ccnxj 


CMDR 


X 


ccnuj 


CMDR 


u 


cchbj 


CMDR 


B 
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MAKE YOUR OWN CHARTS. 
CHARTPAK-64 

produces professional 
quality charts and 
graphs instantly from 
your data. 8 chart tor- 
mats. Hardcopy in two 
sizes to popular dot 
matrix printers. $38.95 
ISBN* 0-916439-19-4 
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-sse 













Also Available CHAATPLOT-64 lor unsurpassed quality charts on 
Plotters. ISBN* 0-916439-20-6 (84.95 



DETAIL YOUR DESIGNS. 

CADPAK-B4 

superb lightpen design 
tool, exact placement of 
object using our Accu- 
Point positioning. Has 
two complete screens. 
Draw LINES. BOXes. 
CIRCLES, ELLIPSES: 
pattern FILLing: freehand 
DRAW; COPY sections 
of screen; ZOOM in and do detail work. Hard copy In two sizes 
to popular dot matrix printers. ISBN* 0-916439-18-6 S49.95 



CREATE SPREA DSHEETS & GRAPHS., 

POWER PLAN-64 

not only a powerful 
spreadsheet packages 
available, but with built in 
graphics too. The 275 
page manual has tutorial 
section ahd HELP screens 
are always available. 
Features field protection; 




row and column copy, 
sort; duplicate and delete. 
ISBN# 0-916439-22-4 
$49.95 
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FREE PEEKS ft POKES POSTER WITH SOFTWARE 

For name & address of your nearest dialer call (616) 241-9510 



CHART YOUR OWN STOCKS., 

TAS-64 ; 

sophisticated technical 
analysis charting 
package for the serious 
stock market investor. , 
Capture data from 
DJN/RS or Warner ser- 
vices or enter and edit 
data at keyboard. 7 mov- 
ing averages, 3 oscillators, trading bands, least squares, 5 vol 
ume Indicators, relative charts, much more. Hardcopy in two 
sizes, most printers. ISBNs' 0-916439-24-0 (84.95 




DO YOUR OWN WORD PROCESSING 

TEXTOMAT-64 

flexible worprocessing 
package supporting 40 or 
60 columns with horizon- 
tal scrolling. Commands 
are clearly displayed on 
the screen awaiting your 
choice. Quickly move from 
editing to formatting to 
merging to utilities. Will 
work with virtually any prin 
ter. 



T7T~1 



E 



i=i 



ITTTT 



LHLZBEIEIEI 

IS6N# 0916439-12-7 (39.96 



ORGANIZE YOUR DATA., 

DATAMAT-64 

powerful, yet easy-to- 
use data management 
package. Free form 
design of screen using 
up to SO fields per 
record, fvlaximum of 
2000 records per 
diskette. Complete and 
flexible reporting. Sort- iL 



INVENTORY FILE 


It am Numb or 


Doncription_ 


Onhand 


Pr I cm 


Location 




RbdtO. Pt. 


Roord. Qtv.4 


Cost 





ing on multiple fields in any combination. Select records for prin- 
ting In desired format. ISBN* 0-91B439-1B-X $39.95 

Othir titles ml1*b!». For FflEE CATALOG tat nms el nutttt dialer, writs or etll (BIB) 
241-5810. for postage and handling, include $4,00 (16.00 foreign) per ordar. Money Order 
and cheeks in U.S. dollars only. Mastarcard. VISA and American Express accepled. Michiaan 
residents include 4% sales lax. 
CANADA: Book Center, Montreal (514) 332-4154 
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VIDEO BASIC-64 - ADD 50+ graphic and 
sound commands to your programs with this super 
development package. You can distribute free RUN- 
TIME version without paying royalties' 
ISBN* 0-916439-28-7 559.95 

BASIC COMPILER 64 • complies the 
complete BASIC language into either last 6510 
machine language and/or compact speedcode. Get 
your programs into high gear and protect them by 
compiling. 

ISBN* 0-916439-17-8 $39.95 

MASTER-64 ■ professional development 
package for serious applications. Indexed file 
system, full screen management, programmer's 
aid. BASIC extensions. 100 commands. 
ISBN* 0-916439-21-6 S39.9S 

PASC AL-64 ■ full Pascal with extensions for 
graphics, sprites, file management, more. Compiles 
to 6510 machine code and can link to 
Assembler/Monitor routines. 
I8BN* 0-916439-10-0 $39.15 



ADA TRAINING COURSE ■ teaches 
you the language of the future. Comprehensive 
subset of the language, editor, syntax 
checker/compiler, assembler, disassembler. 120+ 
page guide. 

ISBN* 0-916439-15-1 (59.95 

FORTH-64 - loaded with hires graphics, com- 
plete synthesizer control, full screen editor, pro- 
gramming tools, assembler. 
ISBN 0-916439-32-1 $39.95 

C LANQUAOE COMPILER ■ a full C 
language compiler. Conforms to the Kemighan S 
Ritchie standard, but without bit fields. Package in- 
cludes editor, compiler and linker. 
ISBN* 0-916439-26-3 $79.95 

ASSEMBLER MONITOR-64 - a 

macro assembler and extended monitor package. 
Assembler supports floating point constants. 
Monitor supports bank switching, quick trace, single 
step. more. 

ISBN* 0-916439-11-9 $39.95 



XREF-64 • Indispensibh) loot lor BASIC pro- 
grammer cross-references all references to variable 
and line numbers. 

ISBN* 0416439-27-5 317.95 

OTHER TITLES ALSO AVAIL- 
ABLE - WRITE OR CALL FOR A 
FREE COMPLETE CATALOG 

Call today lor the name and address of 
your nearest local dealer. 

PHONE: (616) 241-5510 

For postage and handling include $4.00 
($8.00 foreign) per order. Money order and 
checks in U.S. dollars only. Mastercard, 
VISA and American Express accepted. 
Michigan residents mm 1 1 \mmm 
incl 4% sales tax. m~J !*~ "If"! 



FREE PEEKS ft POKES WALL 
POSTER INCLUDED WITH 
EVERY SOFTWARE PURCHASE 
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Required Reading for 
yourCOMMODORE 64 




TRICKS.aTIPS FOR YOUR C-64 

treasure chest of easy-to-use programming techni- 
ques. Advanced graphics, easy data input, enhanced 
BASIC, CP/M, character sets, transferring data bet- 
ween computers, more. 

ISBN* 0-916439-03-8 275 pages $19.95 

GRAPHICS BOOK FOR C-64 • tram 
fundamentals to advanced topics this is most com- 
plete reference available. Sprite animation. Hires, 
Multicolor, llghtpen. IRQ, 3D graphics, projections. 
Dozens ol samples. 

ISBN* 0-91643945-4 350 pages S19.95 

SCIENCE ft ENGINEERING ON 
THE C-64 - starts by discussing variable types, 
computational accuracy, sort algorithms, more. 
Topics from chemistry, physics, biology, 
astronomy, electronics. Many programs. 
ISBN* 0-016439-09-7 250 pages $19.95 



ANATOMY OF 1541 DISK DRIVE • 

bestselling handbook available on using the floppy 
disk. Clearly explains disk files with many examples 
and utilities. Includes complete commented 1541 
ROM listings. 

ISBN* 0-915439-01-1 320 pages $19.95 

ANATOMY OF COMMODORE 64 • 

insider's guide to the '54 internals. Describes 
graphics, sound synthesis, I/O, kemal routines, 
more, includes complete commented ROM listings. 
Fourth printing. 

ISBN* 0-916439-003 300 pages $19.95 

IDEAS FOR USE ON YOUR C-64 • 

Wonder what to do with your '64? Dozens of useful 
ideas including complete listings for auto expenses, 
electronic calculator, store window advertising, 
recipe file, more. 

ISBN* 0-916439-07-0 200 pages $12.95 



PEEKS ft POKES FOR THE C-64 - 

programming quickies that will simply amaze you. 
This guide is packed full of techniques tor the BASIC 
eroorammer. 

ISBN* 0415439-134 160 pages $14.99 

ADVANCED MACHINE LANGUAGE 
FOR C-64 • covers topics such as video con- 
troller, timer and real time clock, serial and parallel 
I/O, extending BASIC commands, Interrupts. Dozens 
of sample listings. 

ISBN* 0-916439-08-2 210 pages $14.95 

ADVENTURE GAME WRITER'S 
HANDBOOK • is a step-by-step guide to 
designing and writing your own adventure gamss. 
Includes listing for an automated edventure gams 
cenerator. 

tSBN* 0416439-144 200 pages $14.95 



Call today for the name of your nearest local dealer Phone:(616) 241-5510 

Other titles are available Call or F °' l" sla 90 ond handling include $4.00 (S6.00 foreign) per order. Money order ■JGSHRlPl 
tX hTr^mnlTK?^ and checks in u s ' dolla,s "eaercerd. VISA and American Express accepted. ■30203 
Write tor a complete free Catalog. Michigan residents Include m salee lax. CANADA: Book Center. Montreal Phone: (B14) 332-S154 
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We wrote the book on the.. 



First there was the fabulously 
successful VIC-20. Then came 
the record-breaking 
Commodore-64. 

Now Jack Tramiel has launch- 
ed his third home computer, ' 
the ATARI ST. 

The ST promises to shatter all 
existing price-performance bar- 
riers and become a leader in 
the home-computer market. 
This book. PRESENTING THE 
ATARI ST gives you an in- 
depth look at this sensational 
new computer that promises to 
bring you... "Power without the 
Price." Some of the topics in- 
clude: • History of Atari 

• Overview of the ST • Con - 
struction, Operating System 

• Peripherals • Languages 

• User Programs, and more. 

Price $16.95 



A OATA BECKER BOOK PUBLISHED BY 

Abacus jiiiiiiiiiil S< >f iw.i ri> 



Available June 1st Call for the name of your nearest dealer 



Abacus ill! Software 

P.O. Box 7211 Grand Rapids, Ml 49510 For Fast Service Call (616) 241-5510 



ADVENTURE 



GAMEWRITERS 
HANDBOOK FOR 



COMMODORE 



This book is for owners of the Commodore 64 who 
are anxious to program their own adventure 
games. You'll learn the techniques used in adven- 
ture game programming. Included are step-by-step 
instructions on how to program adventure games 
as well as three full adventure games. This book 
also contains an Adventure Editor and Adventure 
Interpreter that allows anyone to program their 
own adventure games. Have fun writing your own 
adventures! 
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